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bouwpakket £1.130.00 
80-kotoms videokaart,gebouwd en getest, excl.RAM-IC's f1.180.00 
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ATOM NIEUWS jaargang 1983, ruim 450 pag. fl. 30.00 
ATOM NIEUWS jaargang 1984, ruim 650 pag. fl. 35.00 
ATOM NIEUWS jaargang 1985, ruim 650 pag. fl. 35.00 
ATOM-WARE 1; Basic interpreter van de ATOM, 98 pag. fl. 6.00 
ATOM-WARE 2; ATOM Disc Operating System,68 pag. fl. 5.00 
ATOM-WARE 3; ATOM Monitor Operating System,80 pag. fl. 5.00 
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Bij voorkeur via uw regionale penningmeester, eventueel recht— 
streeks bij de penningmeester van de federatie.Bij rechtstreekse 
bestelling dient u het bedrag van het gewenste artikel te storten 
op de giro van de federatie onder vermelding van de naam van het 
artikel en uw lidnummer.Uw betaling dient vermeerderd te zijn met 
fl. 4.00 voor portokosten, 
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ATOM NIEUWS is een uigave van de federatie ATOM computerclubs 
Ned/Belgie en verschijnt 6 — 8 keer per jaar. 

De redactie gaat er vanuit dat de ingezonden copy gemaakt is door 
de inzender tenzij in de publicatie uitdrukkelijk anders is 
vermeld.De aansprakelijkheid betreffend de auteursrechten ligt dan 
ook volledig bij de inzender. 


NAGEKOMEN: 


Wist u dat in CANADA ook een ATOM-club actief is? (ong.100 leden). 
Wist u, dat de informatie uitwisseling inmiddels al op gang gekomen 
is? Weet u dat de redactie probeert wereldwijd contact te krijgen 
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DDCOPY 8200 C2B2 00816 O4C #*SETCAT 2900 CE86 0033F 046 
DCOPY 8200 C2B2 OOAAE 055 #PCAT2 2900 CE86 0047F 04A 
BACKUP 8200 C2B2 012E3 060 #PCAT1 2900 CE86 0035F O4F 
GPSODMP 2900 C2B2 0063F 073 #*PC-SOUR 2900 AFAF OO2FC 053 
AUTOSHW 2900 C2B2 OO03BF 07A +PC-SORT 2800 2800 0007F 056 
GROLSCH 8000 8000 01800 07E *DISMENU 9000 CE86 0022F 057 
CAT 8000 8000 01800 096 *DFSOUR 2900 AFAF OO7EA OS5A 
ROLLS 8000 8000 01800 OAE #DFCAT 2700 CE86 0016F 062 
LOVEBOA 8000 8000 01800 OC6 *DISKCAT 2900 CE86 0067F 064 
EYE 8000 8000 01800 ODE CX-9345 1000 1D90 01000 O6B 
_MELINA 8000 8000 01800 OF6 DBOX2,1 A000 A000 01000 07B 
Sw 2900 AFAF 00571 002 CX19345 0900 1D00 01700 OBB 


CX-8040 6800 1D00 01800 OA2 
CX-2.Bh A000 A000 01000 OBA 


Cc 

C 

Cc 
E-PROM 2900 AFAF 0046F 008 C 
GRAFIEK 2900 AFAF 00070 OOD Cc 
JOYTEK 2900 AFAF OODF5 OOE C UITLEG 2800 A071 00469 GCA 
TEKBEST 8200 8200 01300 O1C S SURFscr 8000 8000 017FF 0C9 
KAARTEN 2900 AFAF O0OA2F O2F S SURF 2900 CE86 O146B OEL 
KASSA 2 2900 AFAF 005B4 O3A A SORT 0400 0400 00072 002 
LEEFT 2900 AFAF 000B8 040 VOORRD 2900 AFAF O1A76 003 
LEUK 2900 AFAF 0007F 041 X voortxt 2800 A071 00C13 OLE 
MARCEL 2900 AFAF 00413 042 MASTER 0000 0000 00500 028 
OVERDWA 2900 AFAF OOSDD 047 G GMSNW.M 5900 CES6 0244A 034 
PRINSES 2900 AFAF OOFD9 O4D G __GMSNW.A 2900 CE86 O2B2D 059 
RAMTEST 2900 AFAF 001C9 OSD G GMSNrun 2900 CE&86 oOOCD 085 
WASMACH 2900 AFAF OOB9F OSF G _GMSNW.B 9800 9800 00800 086 
CALLIGR 2900 2900 O0OF63 002 G #SCREEN 8000 8000 01800 08E 


#1 2900 CEB86 GOOCF 002 
#FCAT 3000 3000 037FF 003 
*startde 2900 CE86 OO1BF 03B 
I KURUVU 2900 2900 OO9B3 002 
1 PANFAST 2900 CE86 00514 OOC 
D DUOTASK 5000 5000 00994 D12 
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VAN DE VOORZITTER 


Hier dan weer een artikel van mijn(onze) hand(en). 

Allereerst moet mij even iets van het hart. 

Ik heb van een heleboel mensen steeds boze reacties gehad over het 
late uitkomen van de 80-kolomskaart, maar nu hij er is wordt hij 
maar bar weinig besteld. Dit is jammer want het is zo'n 
schitterende kaart voor een minimum aan kosten. Dus mensen, laten 
we allemaal van onze ATOM een computer met een prachtig beeldscherm 
maken. Er komen dan ook meer interessante programma's los, zoals 
bijvoorbeeld een 80-koloms tekstverwerker. Overigens is het 
programma ED-80 uit het vorige ATOM NIEUWS wat op de regío schijf 
stond, bedoeld voor de elektuur 80 kolomskaart maar zal snel worden 
aangepast voor onze eigen kaart, Ook voor een spreadsheet (calc) is 
onze 80 kolomskaart te gebruiken. Inplaats van de huidige 4 
kolommen van 8 tekens heb je dan 10 kolommen van 8 tekens breed op 
1 beeldscherm. 


Dan nu een ander punt namelijk de G-DOS kaart. 

Verderop in dit nummer staat ook nog een artikel over dit 
onderwerp, maar ik wou nu iets vanuit het bestuur kwijt. De GDOS 
kaart is tijdelijk opgehouden omdat deze zomer een andere parallel 
lopende kaart werd aangeboden die meer mogelijkheden in zich bergt. 
Peter Huisken heeft in alle stilte een Z-80 (second processor) 
kaart ontwikkeld, gebouwd en getekend. Tevens heeft hij hiervoor 
een compleet besturingssysteem geschreven, welke gelijke 
mogelijkheden heeft als het CP/M besturingssysteem. Voor CP/M is 
ongelooflijk veel software (Public Domain en Profesioneel } 
verkrijgbaar waardoor onze ATOM nog meer in achting stijgt voor wat 
de mogelijkheden betreft. Op 13 September tijdends de ALV is hier 
uitgebreid over gediscusieerd en er is bestoten om in principe 
beide kaarten door te zetten op basis van voorbestellingen. Dit is 
te regelen door 80 gulden over te maken op de giro rekening van de 
federatie onder vermelding van GDOS of Z-80 kaart, en vergeet niet 
je lidmaatschapnummer te vermelden. Voor verdere informatie verwijs 
ik naar het artikel verderop in ATOM NIEUWS. 


Verder kan ik melden dat de contributie voor 1987 op 60 guiden is 
gesteld. Het kan zijn dat er in dit nummer nog niet de 
acceptgirokaart is ingesloten. Je kunt wel alvast betalen naar de 
girorekening van de federatie onder vermelding van je 
tidmaatschapnummer en contributie 1987. 


groeten, 
Nico Stad 
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MODEM SDFTWARE CDFTEWEL HOE VERSTUUR IK MIJN PROGRAMMA 
TERWIJL IK KOFFIE DRINK). 


Bij sebruik van het atom modem met de save/load methode komt het 
{biù mij in ider seval) reseimatia voor dat de communicatie wordt 
afsebroken met een sum-error. Bij veel storings op de telefoon lijn 
kan het oversturen zo een tijdrovende Cen irritante) zaak worden. 
Met het prosramma MODEM hoos ik deze probtemen op te lossen. 


Het prosramma moet zowel aan de zend- ats aan de ontvans zijde 
aanwezig zijn, zodat er tweewes communicatie mosentijk is. Na 
ieder verstuurt blok van 256 bytes (1 pase) seeft de ontvanser een 
meldins of het blok soed is overgekomen. Is het biok niet soed 
oversekomen, dan wordt dit nosmaals sestuurd. 


Het oversturen wordt sestart met een link naar het besin van het 
prosramma,: waarna het prs. om Slend): Rleceive) of Eind) in te 
toetsen. Bij S wordt er gevraaad om de eerste en de laatste te 
versturen paae, bij R wordt alleen de start pase sevraaad. Dit 
moet worden inseseven als 2 tekens hexadecimaal. Door als pasenr. 
BE in te seven wordt terussespronsen naar de voorafsaande vraag. 
Na het inseven van het pasenr. saat de ontvanser staan wachten op 
het eerste blok data. De zender komt met de Dpmerkins “hit 
return". Als nu op de returntoets wordt sedrukt: wordt met 
oversturen besonnen. Van ieder oversezonden blok data wordt 
melding semaakt op het scherm. De punt dim achter het pasenr. 
verschijnt seeft bij zenden aar, dat met zenden in besonnen: 
terwijt dit bis ontvansen betekent dat het blok binnen is. De 
“sum”, die zich aan het einde van ieder blok bevindt, bestaat uit 
een heuse CRC, zoals ook sebruikt wordt voor het testen van de 
diverse eproms. Als antwoord wordt door de ontvanger (na het 
controleren van de crc) een ack of nack sestuurd. Dit wordt cok op 
het scherm zichtbaar ats text “ack“ of “nack”, 


Het verstuurde blok is als volgt opsebouwd: 


STX seett start van het blok aan. (ontvanger wacht 
hierop). 

DATA blok heeft lenste tussen 265 en SIE bytes. De 
gebruikte zontroie tekens worden ni. voorafgegaan 


door een dte. 
Deze tekens zijn: stx, ett: eot: die 


ETB of EDT etb seeft het einde van het biok aan. 
zot seeft het einde van het blok en van de 
Communicatie aan. Édus alleen het laatste bink wordt 
atseslaten met sot). 


2 BYTES CRC de checksum over het blok data: inclusief de extra 
dites en de #tb of #Gt: Niet OvVEr de SEx. 
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De senen die met "echte" communicatie te maken hebben: zui ten 
hebbän opsemerkt dat het protocot min of meer van de transparante 


uitvoering het bse (bisynchronious comm.) Ppraotocot is afsekeken. 
Ik heb me atleen niet bezia gehouden met “timers* en “counters', 
wat kan betekenen dat bij een stechte lijn de computers rustis een 


hatt uurtie hetzelfde blok data kunnen uitwisseten: waarbij het 
beter is om met BREAK het proaramma af te breken en het op een 
tater tijdstip nos eens te Proberen. 


Voor het werkelijk versturen is sebruik semaakt van de beet en 
beut routines, welke direct worden aansernepen (dus niet via #214 
en #216) zodat er niet teruvoseschakeld hoeft te worden bij sebruik 
van diskette (dos), Dit heeft tot sevols dat er altijd op 508 baud 
wordt sestuurd. De sebruikte adressen zijn voor beet #FBEE en bout 
#FC7E. 


Mocht iemand met 1209 baud willen werken: dan moeten deze adressen 
in het prosramma worden aangepast voor de 1200 baud routines. Voor 
P-Charme zijn dit 3 beet #ADED en bout #AEDE. 


Voor vraaen en opmerkinsen hou ik mid aanbevolen. 


Diek Bronsdijk. 


Aanseboden 


ATOM met 16 Kekaart 
grote party software 
wet handteidinsen 
Hazeitine terminat 

en nos een aantat zaken 





Alies in een Koop 2 


f 598, — 


te bevrasen 3 





M. de Haan 
AR-T 
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Meer geld informatica 
ondanks bezuinigingen 


Scholen krijgen meer apparatuur 


Het Rijk stelt de komende vier jaar honderden miljoenen 
guldens extra ter beschikking voor de verbetering van 
(computer)apparatuur en inventarissen op scholen. Dit 
bedrag loopt zelfs op tot 300 miljoen gulden in 1990. Doel 
van deze financiële injectie is in de eerste plaats de relatie 
onderwijs-arbeid te versterken. Dit houdt in dat het 
hoger- en middelbaar beroepsonderwijs meer 
computerapparatuur ter beschikking krijgt. Ook wordt 
meer aandacht geschonken aan de ontwikkeling van 
programma’s en de nascholing van leerkrachten op het 


gebied van informatica. 


Dit staat in de memorie van toelich- 
ting op de begroting Onderwijs en 

Wetenschappen. De 300 miljoen 
gulden extra (in 1990 bereikt) is des 
te opmerkelijker omdat Onderwijs 
daarnaast ook in 1990 circa Ll mil- 
jard gulden moet hebben bezuinigd. 





Luier zorgt voor 
gladde floppy 


Extra goed absorberende luiers 
hebben geleid tot extra gladde 
floppies, zo meldt het Amerikaanse 
blad Business Week. Om de 
concurrent Pampers bij te blijven 
ontwikkelde het Japanse bedrijf 
Kao Îuiers op basis van minuscule 
plastic kraaltjes die aanmerkelijk 
beter bleken te absorberen dan 
papier. Met de inmiddels opgedane 
materiaa!kennis ontwikkelde Kao 
vervolgens cen flexibel schijfje met 
een superglad oppervlak. 
Waarschijnlijk om ongewenste 
associaties te voorkomen zullen er 
geen Kao floppies op de markt 
verschijnen. Men zal alleen de 
materialen voor de vervaardiging 
van de supergladde schijven 
leveren. 


Dit gaat echter niet ten kostté van de 
ieformatica-ontwikkeling. Het 
voornemen bestaat om in de derde 
en in de vierde klassen van havo en 
vwo een lesuur informatica als af- 
zonderlijk vak verplicht te stellen. 


Vaste voet 

Minister Deetman schrijft in zijn 
begroting: “De nieuwe informatie- 
technologie heeft vaste voet gekre- 
gen in de verschillende sectoren van 
het onderwijs. Algemeen is het besef 
gegroeid dat deze technologische 
vernieuwing cen belangrijk aankno- 
pingspunt is voor de bevordering 
van economische groei” 

De overheid wil (overeenkomstig 
het standpunt van de commissie 
Pannenborg over het Surf-plan; de 


ATV: Automatisch Tijd 


Verdrijf 





Minister 
W.J. Deetman 





samenwerkende universitaire reken- 
centra) voorrang geven aan het op- 
zetten van een landelijk datanct- 
werk en aan voorzieningen voor de 
hogescholen voor beroepsonderwijs. 


Micro-elektronica 


Bovendien zal het onderzoek in de 
micro-elektronica worden gestimu- 
teerd. 

Het middelbaar beroepsonderwijs 
wordt de komende jaren ingrijpend 
gewijzigd in sectorscholen. Dit ie- 
vert een bezuiniging op van 150 mil- 
joen gulden per jaar. Aan de andere 
kant kunnen MBO-scholen aanmer- 
kelijk flexibeler werken door een 
globaler bekostiging en een sterke 
bevordering van de autonomie op 
een wijze die doet denken aan de 
operatie schaalvergroting, taakver- 
deling @n” concentratie voór het 
HBO, 


Het MBO-nieuwe stijl wordt in vier 
sectoren verdeeld: een technische, 
een _economisch-administratieve, 
een dienstverlenende en gezond- 
heids- en een agrarische sector. In 
opdracht van Onderwijs is ook een 
eerste studie naar de mogelijkheden 
van de nieuwe media zoals beeld- 
plaat en viewdata verricht door het 
European Institute of Education and 
Social Policy te Parijs. Aan het einde 
van deze regeerperiode zal meer dui- 
delijkheid zijn verkregen over de 
wenselijkheid van bepaalde educa- 
tieve toepassingen. 





DRS. DEETMAN 
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Ik heb gehaard dat sommigen van ons het leuk zouden vinden 
om een soort voor stukje te hebben dat direct op het beeld 
schrijft en laat zien van wie het is. 

Alleen het probleem was hoe doen we dit. 

Eerst moet er een ontwerpje gemaakt worden. 

Je moet er rekening mee houden dat het in clear gezet 
wordt . 

Hier onder volgt een voorbeeld: 


10 F.#12;CLEARG 
ze Pt ‘CE ) ACORN CLUB 
30 MOVE2O, 20 

42 DRAW2E, 40 

SP DRAW25, 20 

62 DRAW25, 40 

70 MOVESG, 50 

82 DRAWID, 40 

90 MOVESS, 30 
188 DRAW3S, 40 
110 MOVEZE, 35 
120 DRAWZ5, 35 


150 P.’ Sr 

140 FP." PROD UCTEONS «" 
159 P‚'" DIT IS EEN AANKONDIGING" 
tag FP,’ VOOR HET KOMENDE" * 

178 P‚'* PROGRAMMA VAN ERROR 94" 
180 END 


Wanneer je dit runt dan zie je een ontwerp voor 
Noord-Holland. 

De bedoeling is alleen om er een beeld loading van te maken. 
De regel 188 wordt hier verwijderd en het volgende bij 
gevoegd: 


188 *NOMON 

198 FCOS 

200 #5A." naam "8303 8200 
210 P.#7£7X7 

220 END 


Na het runnen en het opnemen de band terug spoelen. 

Nu kun je het voorprogrammaatie gewoon laden en dan zie je 
dat het direct op het beeld komt. 

Wil je nu je eigen programma er aan vastkoppelen dan scrijf 
je op #8200 #RUN" naam eigen programma " en verander dan het 
adres op regel 128 in de top. 

Veel plezier er mee. 


Ron Siekman 
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Dit programma is gemaakt omdat er aan mij vaak gevraagd werd 
omeens een programma te schrijven dat het maken van kleine 
tekeningen vergemakkelijkt. 

Nou hier is het dan. 

De toetsen die je moet gebruikenwordt door het programma 
zelf verteld. 

Na dit programma volgt nog een voorbeeld met een kleine 
uitleg.Veel plezier bij het intikken. 


18 REM (C) ACORN CLUB 

28 DIM L(&3),A(20) 

38 !L=HOESE4477jL!'4=4676BADjL !'BEHAELBAF7F jl! 12 H2E5ZGEEF 
40 L'16=#22EB6CEB LL! 2OROAESOZIEFL ! 24=H22064C 1 

50 L!28=#4A1D8276; Zet4O172OE1jL! SO=tb6556457 

68 L'4D=#2EABDEIB;L' 44 HGAZEZESE;L ! 4864510246 

70 L!'S52=#64716449; LL! SG=HOCAP2CSENL ! GO=H2EZA 











FILL";MOVE14G, 185; GOSUE a 
CLEAR"; MOVE 190, 105; GOSUB a 
250 #A="RESULT";MOVE165, 70; GOSUB a 
260 FOR D=#8000 TO #9800 

270 PD=?D: BFFFEFFFF 

280 NEXT D 

290 X=16;Y=16;P=175;0=40 

300 PLOTL4,X,Y;PLOTI4,P,O 

310 KEY Z 


88 CLEAR 4 
93 FOR I=18 TO 130 STEP15 
122 MOVEI, 18 
118 DRAWI, 145 
125 NEXT I 
150 FOR I=1@ TO 145 STEF15 
140 MOVE1@, I 
159 DRAW132,I 
168 NEXT I 
178 #4 ‘FIGURE DESIGN RF SIEKMAN";MOVERZ, 170; GOSUBE a 
180 $A="128 64 32 16 8 4 2 O";MOVELH,157;GOSUB a 
190 & UP" ;MOVE140, 155; GOSUB a 
208 & DOWN" sMOVEL4D, 1253 GOSUB a 
210 # LEFT";MOVE190,155;GOSUB a 
220 # RIGHT";MOVE190,125;GO0SUE a 
Ed 
® 


320 IF Z=CH"N" THEN X=X-154PLOTI4,X,Y;FLOTI4, (X+15) ,Y 
330 IF Z=CH"N" THEN P=P-2;PLOT14,P,0; PLOTI4, (P+2) „0 
340 IF Z=CH"M" THEN X=X+15;PLOT14,X,Y3PLOTIG, (X-15) ,Y 
250 IF Z=CH"M" THEN P=P+2;PLOT14,P,O;5 PLOT14, (P-2) „0 
360 IF Z=CH"A" THEN Y=Y+154PLOT14,X, Ys PLOT14,X, (Y-15) 
370 IF Z=CH"A" THEN O=0+2;PLOT14,P,B4PLOT14,P, (@-2) 
380 IF Z=CH"Z" THEN Y=Y-154FLDT14,X,Y;PLOT14,X, (Y+15) 
290 IF Z=CH"Z" THEN D=Q-2:PLOT1A,P,O3PLOTLA,P, (0-2) 
A00 IF Z=CH"D" THEN GOSUE b 


410 IF Z=CH"C" THEN GOTO 22 
420 WAIT;WAIT;WAIT;GOTO 210 
450aFOR I=® TO LEN(A) -1 

448 C=A?1;GOSUB c 

45A NEXT I 
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460c 
478 
480 
490 
504 
510 
520 
58 
548 
550 


IF C=32 
IF C<48 
E=C-48 
IF <10 
C=C-17 
IF CSB OR Cr25 THEN RETURN 
C=2eCt+10 

GOSUE e 

FLGT2, 5,0 

RETURM 


THEN FLGTO,6,0: RETURN 
THEN RETURN 


THEN GOSUB di PLOTS, 2,02 RETURN 


SádeD=C 

570 GOSUB d 
z80 C=Dt1 
590 GOSUB d 
485 RETURN 


&18d 
620 
650 
640 
458 
s&l 
67u 
680 
69Uh 
oa 
712 
728 
758 
748 
750 
760 
770 
780 
790 
aaa 
814 
820 
Bz 
84e 
850 







LPC PLOTCKI „0,2 
123 PLOT (CHI) „2,0 
C/EIFLOT (CHI) „0, 7ï 
CAP PLOTCDRI) „-2, 
423 PLOT (C&1) „8,2 
C=C/23 PLOT (E&I) „2,0 
C=C/23 PLUTECKÍ) „0,2 
RETURN 
MOVE (XE) „ (Y-4) 
FOR A=X-5 TU X+8 
K=Y+B 
FLOT&,A,E 
MOVE &, (Y-5) 
NEXT @ 
MOVE (XB) , (Y-5) 
FLOT&, (X+B) , (Y+1 
MOVE (XE) , CY-4) 
PLOT&, €X-E) , (Y+4) 
MOVE „G 
FOR Varel TO P 
WG 1 
FLOT&, V‚W 
MOVEV ‚0 
NEXT V 
RETURN 


Jet 


he 


Na dat je dit programma hebt gerund zie je dat doormiddel 
vande toets D de vlakken kunt in kleuren en vok weer 
uitvegen. 

Nu volgt de verdere uitwerking. Nadat je een tekening 
gemaakt hebt worden de getallen als volgt opgeteld: 


bij de eerste regel heb je ingekleurd 


de 16 en B 

Ze 352 en 4 

Ze 32 en 4 

4e 52,16,8 en 4 

Se be 7e Be E72 en A 
Dit riet er als een A uit. 
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Nu tellen we de getallen op. 
b.v. bij de 4e regel word dit + 


S2+16+8+4=40 


Dit doen we met alle getallen. Nu gaan we het gebruiken en 
proberen om het figuurtje op het scherm te krijgen. 


18 REM plaats bepaling 

28 Z=#0DE 

32 REM mode waar in het getekend moet worden 
48 CLEAR4 

58 REM ontwerp tekenening 

68 ?2=243ZeZ+i2j PZe5br ZeZ+32 





Ik hoop dat jullie er veel lol van hebben en dat het maken 
van tekeningen nu een stuk gemakkelijker is. 


„Ron Siekman. 
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ALGEMENE GEGEVENS 


De EF9I45 is een goedkope semigrafische beeldscherm processor. 
Hij is bedaeld voor het gebruik met een qoedkope monochroom of 
kleuren monitor (64 us per lijn, 50 of 40 Hz refresh frekwentie). 


De EF9345 geeft tot 25 regels van 40 karakters of 25 regels van 80 
karakters. 

De on=chip karakter generator beschikt over een 128 standaard, Sx7, 
karakterset en standaard semigraphische set. 

Meer gebruikers definieerbare (EBK10) alfanumerieke of semi grafi= 
sche sets kunnen in het 16 Kb VDU-geheugen opgeslagen worden. 


Deze set is alleen in de 40 koloms mode beschikbaar. 


MICROPROCESSOR INTERFACE 
De EF9345 heeft een B-hbits gemultiplexte adres/databus, micropro- 
cessor interface. 


Deze is direkt compatibel met populaire (6801, GBUSCT, 8048, 8051, 
BUIS...) microprocessors. 


REGISTERS 


De VDU-processor heeft B direkt toegankelijke registers : 





* RB commando/status register 

* Ri, R2, 2 + Data registers 

* RA, RS \ Beide register paren wijzen naar het 
& Ra, R7 Zx VDIJ-geheugen. 


Door dere registers wordt indirekt toegang tot het VDU-geheugen en 
5 andere registers verkregen. : 


* ROR, DOR : Basis adres van de geheugen pagina die 
getoond wordt, en van externe karakter 
generatoren. 


* PAT, MAT, T58 : Bebruikt om de attributen en de formaten in 
te stellen, en om de timingsgenerator in te 
stellen. 


VDU-GEHEUGEN 


De gebruiker mag het VDU-geheugen tussen de volgende zaken 
verdelen : 


+ Fagina's voor karaktercodes (SEKS of EEKE}. 
* Externe karakter generatars. 
* Algemeen gebruikers gebied. 
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Diverse soorten geheugencomponenten kunnen gebruikt worden. 


* ROM, DRAM of SRAM, 
EK x 8, BE x B, IK x 4 organisatie, 
* 508 ns cyclus tijd en 259 ns toegangs tijd is noodzakelijk, 


* 


4B KARAKTERS PER REGEL : KARAKTER CODE FORMAAT EN ATTRIBUTEN 


Als de 40 karakter mode geselecteerd is, moet ook een van de drie 
karakter code formaten gekozen worden : 


% 24-bit lang formaat z 
Eij elk karakter moeten de attributen meegegeven worden. 


* B/24-bit variabel formaat : 
Alleen bij attribuut wijziging moeten deze meegegeven worden. 


* 16-bit kort formaat : 
Niet alle attributen zijn beschikbaar, moeten wel iedere keer 
meegegeven worden. 


Het 16-bit korte formaat is compatibel met de EF9340/41 CRT 
controller. 


Beschikbare karakter attributen : 


— Achtergrond en voorgrond kleur (5 bits elk) 

— Dubbel hoog, dubbel breed 

= Knipperen 

- inverteren 

= onderstrepen 

= verborgen 

= invoegen 

= atcenten bij lowercase karakters 

= 5x100 gebruiker definieerbare karakter generator in het 
geheugen 

= 8 « 10% semigrafische 40-kleuren karakters. 


88 KARAKTERS PER REGEL : KARAKTER CODE FORMAAT EN ATTRIBUTEN 
Er zijn twee karakter code formaten beschikbaar : 
% Lang (12-bits) met 4 attributen : 
— Knipperen 
— Onderstrepen 
— Inverteren 


— Eleuren 


4 kort (B-bits) 1 geen attributen 
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TIMINGS GENERATOR 
De gehele timing wordt verzorgd door een 12 MHz klok. 


De RSB output is 8 MHz hij de 42 karakter mode en 12 MHz bij de 50 
karakter mode, 





Daarnaast kan de gebruiker het volgende instellen : 


* 


SU of 4D Hz vertikale synchronisatie frequentie 
geinterliniserd of niet 

* gescheiden of samengestelde vertikale en horizontale 
synchronisatie vutput. 


* 





"der is een samengestelde synchronisatie input aanwezig als een 
van de volgende zaken gewenst is 1 


* Een on-chip vertikale resynchranisatie 

* Een on-chip graffe horizontale resynchronisatie 

* Een off-chip ‘high pertormance’ horizontale resynchronisatie 
daor het gebruik van een eenvoudige externe VCX0 gecontrol- 
leerd donor de an=chip fase vergelijker. 





GEHEUGEN ORGANISATIE 


LOGISCHE EN FISIEKE ADRESSERING 


De fisteke 16 Kbyte geheugen ruimte is logisch verdeeld door de 
EF9Z45 in 4D-byte buffers (figuur 1), Beter gezegd het logische 
adres werdt bepaald door het X, Y‚ Z trio, waarbij 2 





35) wijst naar een byte binnen een buffer 
8 tot Zi} wijst naar een buffer binnen een 1 Kb 





(B tot 15) wijst naar een blok 





“1E=1024 kan niet precies door 40 gedeeld worden, daardoor 
bevat ieder blok 25 volledige buffers en een 24-hbyte overblijver. 
Aangenomen dat het fisieke geheugen een veelvoud van 2 Kbytes is, 
warden de overblijver odanig georganiseerd dat het volgende var 


kregen wordt « 








even blok 
32 tot 


sen volledige buffer (rY=@) in el 
* een gedeeltelijke buffer (Yai 
leak, 





) in elk oneven 








(Zie fi 
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POINTERS 


Iedere X, Y en Z component van een logisch adres is binair geco- 
deerd en opgeslagen in twee Bebits registers, Zo'n register paar is 
een pointer (figuur 2), De EF9345 heeft twee pointers : 


* R4, RS 1: hulp pointer 
% Ré, R7 « hoofd pointer 


RS en R7 hebben het zelfde formaat, Elk bevat een X component en de 
twee LSB's van een Z component. Deze opslag zorgt voor een verde 
ling van Z in 4 districten van 4 blokken ieder. 


RS en R7 wijzen ieder naar een bìoknummer in een district. R4 en Ré 
hebben een verschillend formaat : beide bevatten een Y component en 
de LSE van het district nummer, maar R6 bevat de MSB's van beide 
districten. 


Figuur 2 toont de logische naar de fisieke adres omzetting, zoals 
dit in de chip gebeurt. 


DATASTRUKTUUR IN HET GEHEUGEN 


Een pagina is een stuk geheugen dat weergegeven kan worden op een 
beeldscherm tot 25 regels karakters, Overeenstemmend met het karak 
ter code formaat, komt elke regel pvereen met 2 (of 3) 4D-bytes 
buffers. Deze set van 2 (of 2) buffers vormen een regel bugger 
(figuur 1). De bufters die tot een regel buffer behoren, moeten aan 
de volgende voorwaarden voldoen « 


e hebben het zelfde Y adres 

e hebben het zelfde district nummer 

liggen in © (of 2) opvolgende (modulo 4) blok adressen 
hun eigen district. 





Dus, een regel buffer wordt bepaald door zijn eerste buffer adres 
en formaat. 
Een pagina is een set van opvolgende regel buffer 





* met het zelfde formaat 

* met het zelfde district nummer 

* met het zelfde blek adres van de eerste buffer. Dit blok 
adres moet even zijn, 

* met opeen volgende (modulo 24) Y adressen. 









Een gevolg hiervan is dat een p as miet over een districts grens 
rag lepen. Algemeen gebruikt geheugen meg gebruikt worden, maar ze 
moeten wel voldoen san de buffer of regel buffer structuur. Zie 
figuur 2 voor de pointer verhaging als gevolg wan deze data 








ten 





Lear 
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GEHEUGEN TIJD DELING (zie figuur 4) 
De geheugen interface heeft een 500 ns tijdeyclus nodig. Dat is een 
2 Mbyte/s geheugen bandbreedte, Deze bandbreedte wordt gedeeld 
tussen « 





* het lezen van een rijbuffer vanuit het geheugen om de interne 
rijbufter te laden {tot 120 bytes per rij). 

* het lezen van gebruiker gedefinieerde karakter delen vanuit 
het geheugen (1 byte per microseconde). 

+ indirekte processor lees en schrijf opdrachten. 

* refresh tijd voor DRAM, 





Een vast plaatsings schema bepaald de tijdsdeling. 
Opmerkingen bij figuur 4 


- Dummy cycli zijn lees opdrachten op dummy adressen 

« Refresh cycli in lees eycli veroorzaakt daor een B-bit automa 
tisch verhogende teller. Het lage byte van de adressen ADM(O: 7} 
tat de volledige 256 adressen vergt minder dan Ì ms. 

acessor heeft iedere microseconde indirekte toegang tot het 

ugen, behalve tijdens de eerste en de lsaste lijn van een 











geh 
rij, als de interne buffer opnieuw geladen moet worden. 


5 


Tijdens deze lijnen heeft de processor gedurende 184 us geen 
toegang tot het geheugen. Dit is ook het geval als er geen 
gebruiker gedefinieerde karakter delen geadresseerd zijn. 
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FIGUUR 1 — GEHEUGEN REGEL BUFFER 
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FiGUUR 2 — AUTOMATISCHE POINTER VERHOGING 
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FIGUR 7 = LOGISCHE NAAR FYSIEKE ADRES OMZETT ING 
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GEHEUGEN CYCLUS PLAATSING 
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DM 
UDE 
DS 


UDS 


e— 4u 









RESH } uF 
LD LD 


REBH 1 u 


REGH t uP 
1 us 


24 us 








DN 
pad 
® 
v 
à 
hel 
w 
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5 
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® 
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ke 
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EEN RIJ = 18 TV LEJNEN 


GEHEUGEN EYCLUS 

DL dummy eyelus 

uFs indirekte toegang 

RESH: refresh cyclus 

UDS: gebruiker gedefinieerde 
karakterdeel leescychus 

LD: teescyctus voor Laden 
interne rij buffer 
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kk GMSmen Kk 


De nieuwe versie van GMS bevat enkele aanvullingen met betrekking 
tot de eerder gelanceerde versie (AN. jrg.5S, nr.4) 


—= DISK gebruik 
Bij aanroep van het SAVE auf LOAD onderdeel verschijnt een 
CATalog van de disc, waarna een filenaam ingetikt mag 
warden. 
Als er tijdens er tijdens laden en/of schrijven iets faut 
gaat, verschijnt de catalog overnieuw. 

— extra functies van ’potlood® 
Nadat voor het potloodje (met gum) is gekozen kan men door 
het indrukken van een lettertoets gebruik maken van de 
volgende functies: 


EMJ Move 
‘bewaar’ huidige potlnod-positie. 


CDJ Draw 
trek een lijn vanaf laatst bewaarde punt en bewaar 
eindpunt van getekende lijn. 


EC) Circle 
teken een cirkel met het riddelpunt in de Jaatst 
bewaarde positie en een straa} die gelijk is aan de 
afstand tussen laatst bewaarde positie en huidig punt. 


CF] Fill - 
Vul de aan te geven posities met een te kiezen 
paint-patroon (BAGS-ROM noodzakelijk 9). 
Er verschi jnt een keuzemenu met een aantal 
paint-patronen: kies gewenste patroon en laat de 
cursprpijl BOVEN buiten beeld verdwijnen. 
De cursor-pijl verschijnt weer en kan gebruikt worden 
om de te vullen patronen aan te wijzen. 
Als het vullen een onbevredigend resultaat geett (b.v. 
lekje), dan kan de actie ongedaan gemaakt worden door 
onder buiten beeld te verdwijnen. 


Van de nieuwe versie van GMS (weet u nog: brafisch Manipulatie 
Systeem) bestaat slechts een uitvoering: deze is geschikt voor 
ATOMS met geheugen vanaf #2860 tot #A000. 





FILES: 
GMSNW.A zassemblersource 
EMSNW. B binaire’ -routines (afkomstig van GMSNW.A) 
GMSNW. M hoofdprogramma (BASIC) 
GMSNrun kort opstart-programma 


SCREEN z intraductieschern 


Andre de Bruin, 
Baljuw 11, 
2671 HL Naaldwijk. 
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“Met het menu van G.M.5, 
daat er een wereld apen,” 
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PUOTASK 


be weten allemaal dat de actoaatiseringswereld niet alleen uit ATOMs bestaat. Zo zijn er op de markt nogal wat 
NINI- en MAINFRAME-conputers die, hoewel ze slechts een processor bezitten, toch meerdere prograaaa’s 
tegelijkertijd kunnen verwerken. Deze angelijkheid wordt aangeduid als 'tise-snaring’, 

De seest eenvoudige vora hiervan is 'tiae-slicing’: elk prograaaa krijgt telkens pen 'plakje’ processorti jd. 
Hierna volgt de beschrijving van het DUOTASK programa: een programa dat het pogelijk aaskt on twee 
prograaaa’s tegelijkertijd op de ATOM te gebruiken. (daarbij ís DUTASK zelf NIET aeegerekend '!) 


Als dit programma’tje opgestart is, dan kunnen we de ATOM als voorheen 
normaal gebruiken: we kunnen een BASIC programma laden, waarna we met 
RUN het programma starten. 

Als we dan echter tegelijkertijd op de CTRL en SHIFT taets drukken, 
dan merken we dat het BASIC programma stopt. Nu kunnen we een ander 
BASIC programma laden, dit moet dan natuurlijk niet het al aanwezige 
programma vernietigen. (Met XL0AD kunnen we het programma naar een vrij 
gebied in het geheugen dirigeren.) 


Het laatst aan boord getrokken programma kunnen we ook laten RUNnen, 
waarna we voor de grap tegelijkertijd de CTRL en SHIFT toets 
indrukken. 

Tot onze niet geringe verbazing zullen we dan merken dat het laatst 
geactiveerde programma nu ’hangt” (stopt), terwiji het eerder genoemde 
BASIC programma weer doorgaat, daar waar hij gestopt was. 

We kunnen nu naar believen CTRL-REPT en CTRL-SHIFT indrukken en zo dan 
weer het ene en dan weer het andere programma de beurt geven. 


Leuk wordt het pas als we op CTRL-SHIFT-REPT drukken „ we merken dan 
namelijk dat beide programma’s tegelijkertijd werken '!. (tip: eerst 
de CTRL-toets,daarna pas de anderen en in omgekeerde volgorde weer 
laslaten) 


VOORBEELD: 
teerst het DUOTASK programma RüNnen} 
VOER IN: 
P1I8=#29;NEW { dus het programma begint op adres #2900 3} 
10 PRINT"EEN NIEUWE LENTE " 
20 GOTD to 


RUN 


Het scherm stroomt nu over met literaire tekst. Voer daarna ce 
volgende handelingen uits 
CTRL -REPT 
P18=#305 NEW 

10 PRINT $7 

20 6OTO 10 


RUN 
CTRL -SHIFT-REPT 


teen echte bende krijg je pas als je regel 10 verandert in: 
10 PRINT" EEN NIEUW GELUID" > 
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EEN TIP WAN DE SLUEER 


Als het DUOTASK programma wordt gestart, dan verplaatst deze de eerste 
4 geheugenpagina’'s (adress #0..#3FF) naar een andere plaats in het 


geheugen. 


Die eerste vier pagina’s bevatten alle systeemvariabelen en de stack 
van de 6502, 


Die “systeemvariabelen” bevatten alle informatie van een lopend 
programma (startadres van programma, welk statement wordt op dit 
moment uitgevoerd etc.) 


Als we nu op GCTRL-SHIFT of CTRL-REPT drukken, dan worden de beide 
genoemde systeempagina’s weer uitgewisseld. 


Een ding is echter nog niet verteld: het programma die de wisseling 

uitvoert, moet constant naar het toetsenbord gluren om te zien ot er 
al ap CTRL-SHIFT, CTRL-REPT of CTRL-SHIFT-REPT is gedrukt. 

Welnu, dit is opgelost daor dat programma als ’interrupt’-routine te 
programmeren: 


De VIA wordt zo geprogrameerd dat deze op gezette tijden een interrupt 
doorgeeft aan de processor. 

Als de processor een interrupt krijgt, dan begint deze de routine 
PsKK7? (zie programma) uit te voeren.Die routine wordt slechts een 
maal aangeroepen: hij copieert de huidige eerste 4 geheugenpagina's 
naar een vrije plaats in het geheugen, maar zorgt er ook voor dat 
valgende interrupts door routine °KK2’ afgehandeld worden. 

Die routine ’sKK2° (Die dus bij elke interrupt weer aangergepen 
wordt), gluurt naar het toetsenbord om er achter te komen of een van 
de speciale toetsvolgorden (zoais CTRL-SHIFT) al is ingedrukt. 

Als dit zo s, dan beslist de routine of de beruchte 4 pagina’s 
gewisseld moeten worden. 


Als we een keer op CTRL-SHIFT-REPT gedrukt hebben, dan wordt bij elke 
volgende aanroep een wisseling uitgevoerd, zodat de beide BASIC 
programma’s dus "tegelijk” werken. 

(OPMERKING: voor lezers van ACORN USER/ATUM FORUM: het is dus NIET zo 
dat CTRL-SHIFT-REFT ingedrukt moet blijven, de redacteur van die 
rubriek is wat dat punt betreft de faud in gegaan) 
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HET DUOTASK PROGRAMMA 


Het DUDTASK programma kan gewoon vanaf adres #2900 geladen warden 
#2900. 

Als het programma dan gestart wordt, dan vraagt deze waar de 
machinecode geplaatst mag worden. Als je een standaard 12Kb RAM -ATOM 
hebt, is #5600 een fijn antwoord. 

Vervolgens vraagt het programma om een vrij stuk geheugen van IKB, met 
de standaardATOM is #3800 aan te raden (precies IKB voor #3COO) . 

Als laatste vraagt het programma of je ‘locale’ af ’globale’ 
variabelen wil gebruiken, 

Het verschil? wel als je "locale’ variabelen kiest, dan gebruiken 
beide programma’s verschillende variabelen. (vergelijk: ’globaal’ en 
’locaal’ bis P-charne) 


In praktijk is het vaak makkelijk om ’locale’ variabelen te gebruiken, 
daar we dan twee totaal onafhankelijke BASIC-programma’s hebben. Als 
we echter de twee programma’s met elkaar willen laten ’spreken’, dan 
moeten we globale’ variabelen kiezen. 


OPMERKING: in het bovenstaande verhaal wordt telekenmale gespraknen 
over twee (BASIC) programa’s die tegelijkertijd kunnen werken, maar in 
feite werken er 5 naast elkaar: 

—-Het DUOTASK programma zelf 

=Twee ’andere” programma’s 


Om niet te veel verwarring te stichten heb ik de twee Fanderen’. in 
het verhaal *BASIC’ -programma’s genoemd, dit mogen echter ook 
machinetaal programma’s zijn. 

Zo is het bijvoorbeeld mogelijk om de teksteditor aan te roepen, en 
daarnaast nog een programma te plaatsen dat een melodie'tje speelt. 


Het DUUTASK principe is in feite toepasbaar bij welk schakelsysteem, 
box, geheugenkaart dan ook. 

Problemen treden ap (zoals we in het voorbeeld ook zagen) als twee 
programma’s hetzelfde geheugengebruiken.Het beel dschermgeheugen geef 
wat dat betreft de meeste last. Daardoor is het dus niet mogelijk om 
twee LISP-programma’s naast elkaar te iaten draaien (een gedeelte van 
de LISP-’compiler’ bevindt zich vanaf adres #8200) 


Andre de bruin 
Baljuw 11 
2071 HL Naaldwijk 
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10 REM #8 DUOTASK iid 

20 REM XX made by: Andre de Bruin xx 

30 REM %&t Baljuw 11, NAALDWIJK, HOLLAND £%% 

40 REM %*% Lied 

50 @=0:DIM VVtA,KK16; FOR I=1T016;VVI=#2800: KKI=#2800; NEXT 
40 PRINT"WHERE CODE 7"°" FIRST BYTE AFTER FROGRAM ="; Ë=Ó 
70 PRINT&PH2I+?RZ4KH100; INPUT W 

80 INPUT”" WHERE SECOND ZERDPAGE "Z 

PO INPUT?"VARIABLES z "* i=LOCAL , G=GLOBAL", V 

100 PRINT$21; FOR I=1T02;P=W 

110 _B=KK7Z2563 D=KK7/ 256; DekK22256; E=KK2Z/ 256 
120L \{ PROGRAM THE 6522 VIA TO BENERATE INTERRUPTS 3 











1350 \{ THE INTERRUPT VECTOR POINTS T8 °KK7" > 

140 :KKO LDA@#40; STARBBOB; LDAERCO; STARBBOE; LDA@#SO; STAHBBOA 
150 LDA@&RFF ; STA#BBO7 ; STAHEGOS; LDABB; STA#ZO4 

160 LDA@C; STA#205; CLE; RTS 

170 

186 \£ CHANGE INTERRUPT-VECTOR: NOW POINT TD ":Kk27 > 
190 zKK7 LDA#RBO4; LDAGD; STA#ZO4; LDABE: STAHZOS 

200 LDA@1 ; STARZZF ; LDAKBOOO; PHA 

210 TXA;PHAs TYA: PHA: TSXGSTX #23E; LDX@O;2kK6sLDA O,X 
z20 STA ZX „XsLDA #100,X;STA Z+H1DO ,X 

230 LDA#260,X; STA Z+#200, Xs LDA#300, X5 STA Z+#300, X 

240 INX;ENE KK6;LDA@2; STARZSFz JMP WVD 

250 

2460 :KK2 LDA#B804 

270 LDA#BOO1sCMP@65; BEB KK4 C IS ctrlshift PRESSED 7} 
280 CMP@191;BEG KKS £ IS ctrl PRESSED 7} 

290 JMP KK1& 


300 sKKS LDA#BOOZsANDE&4; BEU KK1S 

310 zKKI& LDA VV1E;CMP@S; BEG KK12;JMP WVID 

320 :kK15 LDARI;STA VVIIsEMP#2S5F; ENE KK1Z; JMP VV10 

330 zKkk4 LDAHBOOZsANDEGA; BEG KKI4 

340 LDA®@2; STA VV11;CMP#23F;BNE KKiZs JMP VV1O 

350 ekK14 LDAES;STA VVI \ £ CTRL-SHIFT-REPT WAS PRESSED } 
360 2KK12 LDA#BOOO;sPHAs TXA;PHA: TYA; PHA: TSX; STXHZSE 


370 LDXBOs: KKB;LDA O, Xs STA VV12;LDA Z,X8STA O,XiLDA VVZ 
ze0 STA Z,Xs LDA#100,X38TA VV1ZsLDA Z+#100 ,X;STAH10O, X 
390 LDA WVi2 ;STA Z+#100,X 

400 LDA#200,X; STA VV12;LDA Z+#ZOO „Xs STA#ZOO, X 

410 LDA VV12;5S5TA Z+#200,X 

420); IF Vel GOTO q s3REM Cif “global” selected, GOTD g> 

430L 5 CPX@R2ZZ; BPL KKI7JMP KKIG 


440 :KKS CPX@HBD;BM1 KK11 3; 1 

450gLsKK10 LDA#300,X; STA VV12;LDA Z+#300 „X: STA#3O00, X 
460 LDA VV12;STA Z+#500, X 

470 zKKI1 INXsBNE KKB 

480 sUVI LDX#23E;TXSs PLA; TAYs PLA; TAX; PLA: STAHBOOG 
490 2VV10 LDA#23F; STANBOOO; PLA; RTI 

300 VVI NOP \C"mode": 1=procesi Zeproces2 Z=both } 
S10 zVV1Z NOP 

5201; NEXT;PRINTS& 

530 PRINT"AFTER break RESTART "7 "WITH LINK #"&W" 

546 PRINT"TOP OF PROGRAM: #"EVV1I24+1,° "USED ADRESSES z"” 
550 PRINT" #25F : IDENTIFIEATION (1 OR 2)"7 

560 PRINT" #25E : STACKFOINTER"" 

570 PRINT" "B&VWV11" 2 STATE""" !,&VV12" : SWAPBYTE "" 
580 LINK WsEND 


N 
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LMOVE (Line-MOVE) 
Syntax: LMOVE Inuel,1nun2,lnum3 (R) 


Met dit commando kan men regels binnen een praogramea verplaatsen. 

De regels Inuni t/a lnun2 worden verplaatst naar Inue3 waarbij alle verplaatste 
regels Inua3 als regelnuamer krijgen. Als lnun3 reeds bestaat wordt het blok net 
regels direct hierna tussengevoegd. Lnum3 zelf mag zich niet binnen het te 
verplaatsen blok bevinden en de gebruiker wordt hiertegen beschermd aiddels 

gen ERROR 174, Het programma zal nadat een move-operatie heeft plaatsgevonden 
exact even lang zijn als voorheen. Ook tijdens het move-proces zal het 
prograana nooit langer zijn. 


Verder is een renusber-optie mogelijk door het comeando af te sluiten met 
de letter R‚ Na het voltooien van het sove-proces wordt het programma dan 
in z’n geheel hernummerd, beginnend met regelnummer 10 en set stappen van 10, 


Het LMOVE-comaando is in de eerste plaats bedoeld voor assembler source- 
prograama’s. Daar koat het bijvoorbeeld nog al eens voor dat er net subroutines 
noet worden geschoven om een optimale indeling te verkrijgen. Bij normale 
BASIC-prograama’s moet de nodige voorzichtigheid in acht genomen worden omdat 
LMDVE geen rekening houdt met regelnummers in GOTO’s, GOSUB’s e‚d. 


Voor de duidelijkheid volgen nu enkele voorbeelden. Elk voorbeeld heeft het 
origineel als uitgangssituatie. 


ORIGINEEL LMDVE 20,40,75 LMOVE 50,90, 20R LMDVE 0,30,99 
10 aaaaa 10 aaaaa 10 aaaaa 40 ddddd 
20 bbbbb 50 eeece 20 bbbbb 50 egeee 
30 eceec 60 f4fEf 30 4444 60 HAFfF 
40 dddod 70 9gggg 40 qgggg 70 94999 
50 eeeee 75 bbbbb 50 hhhhh BO hhhhh 
60 fffff 75 eceee 60 cecee 99 aaaaa 
70 qaggg 75 ddddd 70 ddddd 99 bbbbt 
80 hhhhh 80 hhhhh BO eeeer 99 ceecr 


LEOPY, (Line-COPY) 


Syntax en gebruik zijn hetzelfde als bij LMOVE, Het resultaat is echter in die 
zin verschillend dat de “verplaatste“ regels op de oorspronkelijke plaats 
niet verwijderd worden. In tegenstelling tot LMOVE wordt het programma nu 

dus wel langer. 


Opaerkingen: 


De subroutines in het AXXX-gebied hebben betrekking op P-Charme 173, 

Het “s"-teken is een ge-inverteerde "\" (logische OR), Bij gebruik van de renunber 

optie kunnen pr vreesde dingen gebeuren. Toevoeging van de volgende 2 regels 
verhelpen dit euvel: 


LITERATUUR 

1061 LDA B#A3 \ table #A3xx ! 
P-CHARME UITBREIDEN AN 2 1984 blz 36..37 1062 STA #94 \' 
P-FUN AN 7 1984 blz 88..93 


LMove 


16 
zo 
30 
40 
50 
+0 
70 


30 
160 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
zt0 
220 
230 
240 
250 
260 
270 


520 
540 
550 
560 
570 
580 
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FROGRAM LMOVE.STAT k LCOPY.STAT 


PRINT $21;GOSUB a 
GOSUB a;PRINT #6 
A=end; T=P-S 

END 


&REN 6502 SOURCE (MINIAS) 
€ 
„BA A 


#58 
#97 
#140 


sptr 
ength 
:buffer = 





:lmove 
ELC 
BCC lcopy+1 
:lcopy 
SEC 
PHP 
LDX #06 
DEX 
BNE error 
STX #95 
LDX @5 
STX length 
snxt' num 
JER #A4D& 
BCC error 
DEC length 
BEG Inup’ ready 
JSR #C23L \ test comma 
BCC nxt’ num 
zerror 
JMP #CZAC 


\ direct mode 7 


\ disable find 


\ get Inun 


\ error 174 


:lnum’ ready 
JSR #F29L 
PLP 
EDR 
PHP 
BEG 
DEY 
JR 


\ get char 


BCHPR" _\ renum 7 


F+5 


#C4E7  \ test end stat 
LDA 
STA 
SBC 
LDA 
STA 
SBC 
BCS 
LDA 
SBC 
LDA 
SBC 
BCG 


HiEtz \ 
buffer+1 
#iG+t \ 
#25 \ 
buffer 
#25+1 
begin 
#L&+O \ 
HIGE2 \ 
#25+0 
H25+2 
error 


Cz0 


if LOLZ 
then ok 


if LELLI 
then ok 


600 :sbegin 

616 LDX @t 

620 STX #04 

630 JSR #AI24 \ find Li 

640 BCS ready \ if Li>L2 ready 
&5a 

&&0 DEY \ X=0 

670 :nxt' char 

480 INY \ Li to buffer 
490 INX 

700 LDA (ptr),Y 

710 _ STA bufter+t,X 

720 CMP BROD 

730 _BNE nxt'char 

740 INX 

750 STX jength 

780 

770 PLP 

789 PHP 

790 BCS skp'del 

800 LDA ptr 

816 JSR #AIBF \ delete LI 
820 :skp’del 

A30 JSR #A12D \ get next Li 
B40 

850 LDX @2 

850 JER #C6S2 \ find L3 

870 BCS no’ 1num3 

880 1:nxt’1nun3 

890 _DEY 

900 JSK #CHIB \ skip all L5's 
#10 BEC nxt’ Inua3 

920 

930 sno'1num3 

„40 DEV 

950 STY #76 \ Y=t 

260  DEY 

970 _JSR #AEBF \ insert buffer 
#86 BCS begin \ branch always 
970 

100 zready 

1010 PLP 

1020 BEQ renum 

1030 JMP #C2CA \ back to basic 
1040 

1056 srenum 

1066 STX #05 \ eG 

1070 JMP #A2B2 \ renumber 
1080 zend 

1090 

1400 „Ba T 

1110 „AS "LMDVE" 

1120 ‚DE 1movei#B00G 

1130 „A8 "LCOPY* 

1140 „DB 1copy:#8000 

1150 BY #80 

1160 ‚WO end 

1170 1 


1480 


RETIRN 
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10 PROGRAM WORD.STAT & DBYTE.STAT 10 PROGRAM WORD.FUN & DBYTE. FUN 
20 20 

30 PRINT $21;605UB a 30 PRINT $21;60S5UB a 
40 GOSUB a;PRINT $& 40 GOSUB a;PRINT $6 
50 Azend;T=P-3 50 Azend;T=P-3 

60 END 60 END 

70 70 

BO aREM 6502 SOURCE (MINIAS) 80 aREM 4502 SOURCE (MINAS) 
so Lr 90 [ 

100 „BA A „BA A 

110 

120 :getexpr = #C788 sgetfact = #CBBC 
130 :zasign = #C4DE o'zp32 = #CICH 
140 :to’zp52 = &C3CB 140 :to’stack = #C97C 
150 150 

160 :word 160 zword 

170 ELC 170 CLC 

180 BCC dbyte+t 180 BEC dbyte+1 

190 :dbyte 190 :dbyte 
200 SEC 200 SEC 
210 PHP 210 PHP 
220 ISR getexpr 220 JSR gettact 
230 JSR asign 230 JSR to’zp52 
240 DEX 240 LDY 20 
250 LDA #16,X 250 LDA (#52),Y 
260 LDY #25,X 260 _ INY 
270 PLP 270 PLP 
280 BEC skpxchg 280 BCS skpxchg 
290 TAY 290 LDA (#52),Y 
300 LDA #25,X 300 DEY 
310 :skpxchg 310 rskpxchg 
220 PHA 220 PHA 
350 _TYA 350 LDA (#52),Y 
340 PHA 340 JSR to’stack 
350 JSK to'zp52 250 PLA 
360 LDY @1 360 STA #24,X 
370 snxtbyt 570 RTS 
380 PLA 380 send 
390 STA (B52),Y 390 
400 DEY 400 „BA T 
410 BPL nxtbyt 410 „AS "WORD" 
420 JMP #C5SB 420 ‚DB word i#6000 
430 send 430 „AS "DBYTE“ 
440 440 „DB dbyte!#8000 
450 „BA T 450 «BY #80 
460 „AS “WORD*;.DE word: #8000 440 ‚WO end 
470 ‚AS "DBYTE";.DB dbyte:#8000 470 
480 „BY #80;.W0 end 480 RETURN 
490 } 490 
500 RETURN 500 
510 510 
520 syntax: WORD expr = expr 520 syntax: WORD fact 
530 DBYTE expr = expr 530 DBYTE fact 
540 540 
550 ofwel; WORD adres = data 550 ofwel: WORD adres 
560 DBYTE adres = data 560 DBYTE adres 
570 570 


5BO WORD AsV -> ?A=V4Z2SLjIA?IzV/256 SBO V=WORD A -—> V=?A+A?14256 
590 DBYTE A=V —> TA=V/256JATI=VL25b 590 V=DBYTE A «> V=?AR256+A?1 
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10 
20 
30 
40 
50 
68 
70 
80 
Bó 
100 
110 
20 
130 
140 
150 
160 
170 
180 
190 
200 
210 





PROGRAM BIT,STAT 


PRINT $21;GOSUB a 
GUSUB a;PRINT $6 
Azend; T=P=S 

END 


aREM 6502 SOURCE (MINIAS) 
8 
‚BA A 


#CHBC 
#C78E 
#C231 
KCADE 
#CSCD 
#F7At 


1getfact 
tgetexpr 
itstcomna 
zasign 
sto’ zp’y 
zupdbit 


Dunn nn 


zbit 
d5R 
JSR 
JER 
JSR 
DEX 
LDA 
ORA 
DRA 
ORA 
BER 
LDA 

zero 
STA 
LDY 
JSR 
DEC 
LDA 
EOR 
J&R 
JMP 

zend 


getexpr 
tstcomma 
getexpr 
asign 


#16, X 
#25, X 
RIA, X 
#45, X 
zero 
er 


#5E 
BSF 
to'zp'y 
#04 
#15, X 
EFF 
updbit 
#COSE 


«BA T 

"BIT" 
bit:#8000 
#80 

end 

3 

RETURN 


syntax: BIT fact,expr = expr 


ofwel: BIT bitnr,adres = data 


BIT 5,A=t —> ?A=rAi#20 


BIT N,A=0 -> TA=TAELLENE, IJ: BFF 


330 





360 
270 
z8G 
390 
400 
410 
420 
430 
4&û 
450 
460 
470 
480 
490 
200 
510 
520 
530 
540 





FROGRAM BIT, FUN 
PRINT $21;60S5UB a 
GOSUB a;PRINT $6 
Azend; T=P-3 
END 
aREM 6502 SOURCE (MINIAS) 
8 

«EA A 
zgetfact #CBBC 
ststcomma = #C231 
ita’ zp52 #CICH 
:ito’yreg = #CF41 
:to'stack = #€97C 
:bitmask = #F7C9 
zit 

JSR getfact 

JSR tstcomma 

JSR getfact 

JSR to’zp52 

JBR to’yreg 

TYA 

EOR B&FF 

AND @#07 

TAY 

LDA bitmask,Y 

LDY 80 

AND (#52), Y 

BEQ zera 

LDA &1 
:zero 

JMP to’stack 
zend 

„BA T 

‚AS "BIT" 

„DE biti#8000 

BY #80 

„WO end 
1 

RETURN 
syntax: BIT fact,fact 
ofwel: BIT bitnr,adres 
V=BIT 5,A —> Vet rAkH2OeH2Z0) 
V=BIT N,A 2 Vs ?ARZIN" 24.1) 





zh IN"2+. 1D) 
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10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 


310 
320 
230 
340 
350 
360 
370 
380 
390 
400 
410 
420 
4350 
440 
450 
4460 
470 
480 
490 


510 
520 
530 
540 
550 
560 
570 
580 
5) 


PROGRAM PBIN, STAT 


PRINT $21;60SUB a 


GOSUB a;PRINT $6 
Azend; T=P-3 
END 
aREN 5502 SOURCE (MINIAS) 
4 
«BA A 
:getexpr = #C78B 
:prchar = &CA4C 
sprint = #C354 
:sto’yreg = #CFA1 
:pbin 
JSR getexpr 
JSR to’yreg 
TYA 
LDX &B 
snxtbit 
ASL A 
PHA 
LDA @CH"O" 
ADC @0 
JSR prchar 
PLA 
DEX 
BNE nxtbit 
JMP print 
zend 
‚BA T 
AS “PBIN" 
„DB pbini#B000 
‚BY #80 
‚WO end 
1 
RETURN 
syntaxs PBIN expr <PRINT> 


PBIN #84 => 10001010 
PBIN 2" two*” —> 00000010 two 


dus: drukt laagste byte van 
de expressie af in de 
vora van een B-bits 
binair getal en gaat 
verder alsof het gen 
PRINT opdracht betrof. 


280 
290 
300 
310 
320 
530 
340 
550 
360 
370 
580 
320 
400 
410 
420 
430 
440 
450 
460 
470 


PROGRAM BIN.FLN 


PRINT $21;60SUB a 
GOSUB a;PRINT $& 
Azend; T=P-3 


END 


aREM 4502 SOURCE (MINIAS) 


t 
„BA 


sto’stack 
sgetnsp 


zbin 
LDX 
LDA 
JSR 


A 


4C97C 
#F291 


#04 
Bo 
to’stack 


snxtbit 


JSR 
LSR 
EOR 
BNE 
ROL 
ROL 
ROL 
ROL 
JMP 


getnsp 
A 
@CH*0"/2 
endbin 
#15, X 
#24, X 
#33, X 
#42, X 
nxtbit 


zendbin 


STY 
RTS 
tend 


„BA 

‚AS 

„DB 

„BY 

‚WO 
1 


#05 


1 
nBIN" 
bin; #8000 
#Bo 

end 


RETURN 


syntax: BIN bits (max 52) 


V=BEN 101 => Vz5 


V=BIN 1100 1600 -> V=#C8 
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LET OP: DEZE TRUUK ALLEEN TOEPASSEN ALS JE BANDJE HELEMAAL LEEG 
IS. 


Na een hele tijd (+/- 2 jaar) nadat mijn computer is 

gekocht, heb ik hem verbausd naar aijn wensen. 

Ik ben nu in het bezit van rEprommer (zero) 
omgebouwde typemachine tot printer 
32K battery-backup (zelfbouw) 
schakelkaart voor B82752 (made in 
Heytse) 
omgebouwde tv tot "monitor" 
MDCR voor data opslag 


Het gebruik van de MDCR valt 100% mee in vergelijking met 
aiin vroegere cassetterecorder. Een drive is welliswaar sneller 
aaar vind ik te duur in verhouding met de MDCR. Met een drive 
zijn de problemen ook de wereld niet uit!! 


Waar het nu eigenlijk om gaat is het volgende. 
Bij “ini” wordt de band "geformatteerd" en dit duurt minimaal 
twee maal de spoelsnelheid van de MDCR. 
De grote truuk set de duif, zonder dat deze dood is, is zeer 
sinpel. Bij "ini" wordt de band eerst geheel teruggespoeld, dan 
gewist, weer teruggespoeld en vervolgens de Header geplaatst. 
Indie nu ongeveer 10 sec. nadat het wissen begonnen is heel kort 
de "esc"-toets ingedrukt wordt, dan begint de band terug te 
spoelen en de Header wordt geplaatst. 
Dit alles duurt dus veel korter dan het hele (nodeloos) wissen 
van de (lege) band. Tot nu toe heb ik hiermee nog nooit 
problemen gehad, terwijl de tijdbesparing toch minstens 24%6 
sec. 1S- 


Bij het "escapen" simuleer je dus in feite het einde van de band 
zodat deze terugloopt. 
Veel foraateer plezier 


Jan Swinkels, Heythuysen. 


p.s- dit alles zonder geweer.…..ik bedoel ohne gewahr. 
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NORM-WIJZIGING ACORN DISK-PROCESSOR. 


Het artikel van Nico Stad in het vorige AN beschreef de verplaatsing van de 
FDC naar #BC48., Hierin zat echter nog een storende fout... De FDC stond 
niet alleen op #BC48 maar ook op iedere hogere pagina in het #BXXX blok. Op 
dit moment zou dat nog niet al te veel problemen opleveren, echter als we 
de byte's op de andere pagina bij een nieuw clubproject nodig zouden hebben 
zou dat des te meer problemen opleveren, dus vandaar een wijziging op deze 
wijziging... 

De wijziging: 

“Ab komt op pen 3 van IC 22 (74L5138) 

A5 komt op pen 2 van IC 22 (745138) 

A4 komt op pen t van IC 22 (74L5138) 


Fen 9 van IC 14 (74842) uit de voet buigen 
Pen 20 van IC 18 (2532) uit de voet buigen 
Beide pennen doormiddel van een draadje verbinden. 


Pen 1, 2 en 3 van IC 1t (74L802) uit de voet buigen. 
AB komt op pen 1 van IC 11 (74L502) 
A9 komt op pen 2 van IC 11 (74L502) 


Pen 3 van IC 11 (74L502) aan pen 6& van IC 22 (7415138) leggen d.m.v. een 
stukje draad. 


Pen 14 van IC 22 (74LS138) uit de voet buigen. 
Op de soldeerzijde een draadbrug maken van pen 1l naar pen 14 van IC 22 
(7415138) 


De disk-processor staat nu van #BC40 tot #BC50. 
Een eprom die reeds geprogrammeerd was voor de plaats #BC48 hoeft niet 
overgeprogrammeerd te worden, en zaì gewoon blijven draaien. 


Tabel met de adreslijn aansluitingen op de bus: 
A4 ——> pen 11 
A5 => pen 10 
AG —-> pen 9 
AB ——> pen 7 
A9 =-) pen 28 


Bovenstaande aansluitingen zitten op de A-rij van de connector. 


De wijziging in de Atom zoals deze besproken is door Nico Stad in het 
vorige AN blijft gehandhaafd. 


Giucces. 
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Naar aanleiding van het vorige artikel in Atom-Nieuws waarin de inleiding 
van de nieuwe hardware-commissie gegeven werd, dit artikel over de eerste 
vorderingen van de HWC. 

Zaterdag 10 mei j.l. heeft de hardwarecommissie wederom vergaderd, en 
daarbij enkele spijkers met koppen geslagen. Zo zijn er een aantal nieuwe 
clubnormeringen bij die, van de “oude” HWC toegevoegd. Deze clubnormeringen 
zijn terug te vinden op de "centerfald" van dit nummer. 

Als eerste, en belangrijkste is er een belangrijke wijziging doorgevoerd 
binnen het disk-gebeuren van Acorn. Zoals U wellicht zult weten is er al 
enige tijd sprake van het verplaatsen van de disk-controller van #A00 naar 
7), In het voorlaatste AN werd er een wijziging besproken naar het #EXXX 
blak. Mede door dit artikel dachten wij dat het nu koog tijd werd om een 
clubnorm in te stellen. Indien dit niet zou gebeuren kunnen we alleen hoa 
naar raden hoe groot de puinhoop zou worden als iedereen zijn/haar FDC op 
een andere plaats heeft staan... 

De beschrijving van de ombouw kunt U terug vinden in de bijgevoegde 
handleiding. De basis voor deze wijziging is de wijziging van Nico Stad; 
echter was daar een foutje ingeslopens doordat niet alleen #BC48 
geselecteerd werd, maar ook alle andere boven dit adres binnen het #BXXX 
blak liegende blokken (#PDXX,#BEXX,#BFXX) geselecteerd werden. Hierbij dus 
een definitieve versie... 

Waarom we deze methode hebben gekozen? Wel, eigenlijk is dit de meest 
simpele methode om de FDC te verplaatsen, en bovendien hoort de FDC (1/0) 
in het #BXXX blok thuis. 

De tweede en evenzo belangrijke norm is de plaatsing van de GDOS 
controller. Deze kaart is verplaatsbaar in de memory-map van de Atom, maar 
de norm-decodering wordt: PIA:#RCHO, FDC:$BCiá, 

Nogmaals: wij dringen bovenstaande zaken niet aan U ops het is aan U of U 
de wijzigingen/plaatsingen uitvoert; maar... indien U alles op de clubnorm 
houdt zal al Uw hardware blijven verken als er nieuwe kaarten uitkomen met 
een plaatsing in het #BXXX blok. 

Natuurlijk wordt er een kleine uitzondering gemaakt voor de Acorn 
controller. De originele plaats (#0A0D) kan gewoon gebruikt blijven worden 
indien U geen behoefte voelt voor deze wijziging. 

De wijziging is tenslotte het meest interessant voor mensen die geheugen 
hebben van #0000 tot #A000 enz, 


De laatste vorderingen op het gebied van de 80-kolomskaart en GDOS-FDC zijn 
dat de 80-kolomskaart momenteel in de verkoop is genomen, dit natuurlijk 
inclusief de onderdelenpaketten. 

De print lay-out van de GDOS-FDC is met het uitkomen van dit nummer ook 
kiaarj en dat betekent dat de eerste drie prototypes gemaakt kunnen worden. 
We hopen op een zo spoedig mogelijke afwikkeling: maar kunnen in deze fase 
absoluut nog niets beloven over de levertijd van de kaart. 


Als laatste onderwerp in dit artikel valt nog te melden dat er tevens een 
“werknorm" ís gekomen van het landelijk bestuur voor wat betreft het 
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formaat van de diverse kaarten die nog uit moeten komen. Het laat zich niet 
woeilijk raden dat dit het 2,9. eurokaart-formaat is (100 # 160 mm). Wegens 
technische, en financiele redenen is het echt niet mogelijk om kaarten te 
produceren die groter zijn dan bovenstaand formaat, tenzij een kaart 
bijvoorbeeld sowieso niet op de bus aangesloten kan worden. Hierbij valt te 
denken aan een kaart die bijvoorbeeld slechts enkele 1/0 aansluitingen 
heeft, De vormgeving van zo’n kaart zal iedere keer opnieuw bekeken worden. 
U kunt natuurlijk wel raden dat de HWC na het uitbrengen van de 
80-kolomskaart en de GDOS-controller niet bij de pakken neer wil gaan 
zitten: direct na het verschijnen van deze kaarten zal er gedacht worden 
aan nieuwe projecten. Deze projecten moeten natuurlijk niet uit de HWC 
komen maar uit het land, Om deze reden wil ik U vragen te reageren op de 
vraag wat de HWC allemaal uit zou moeten brengen. Dit kan varieeren tot een 
klein en simpel printje wat in de praktijk zeer handig is tot een “groot” 
project. Reacties zien wij gezien de reproduceerbaarheid het liefst 
schriftelijk. Denk hier s.v,p. eens over na, de HWC is er niet om eigen 
ideen uit te bengen! 7 


Namens de hardwarecommissie: Yvo Tuk. 
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1. Korte cursus windsurfen 


Kort gezegd komt het hele surfambacht neer op drie 


basis-vaardigheden : 
= 1. op de plank kunnen klimmen en erop blijven staan 


= 2. starten 
= Se de plank besturen 


t.1 op de plank klimmen en blijven staan 


Dit noet U uzelf aanleren: gewoon proberen en niet boos 
worden als familie en/of vriend(inn)en zich kleurenblind 
lachen om uw herhaaldelijke spartel-partijtjes. 


1-2 starten 


Als u wilt starten, doet u dat door op de plank te gaan 
staan met uw rug naar de wind gekeerd. 

Het zeil moet dan VOOR u in het water liggen (dus niet aan 
die kant waar de wind vandaan komt). 

Vervolgens trekt u het zeil op door met beide handen aan 
het touw te trekken dat aan de giek (het handvat van het 
zeil) bevestigd is. 

Zodra dit mogelijk is pakt u de giek met beide handen 
vast: een hand dicht bij de mast en de andere daar een 
stukje vandaan (zeg: halverwege de giek) 


Op dat moment gaat de plank vooruit. Nu moet er echter nog 
gestuurd worden. 


1.3 sturen 


De besturing van de surfplank geschiedt in tegenstelting 
tot vrijwel alle andere vaartuigen uitsluitend met behulp 
van het zeil. 

Door het gehele zeil naar varen te bewegen (dus bewegen in 
de vaarrichting), draait de plank totdat deze in dezelfde 
richting vaart als de wind waait. 


Door het zeil naar ACHTER te bewegen, draait de plank 
totdat u pal tegen de wind in vaart. 


Als u het verhaal tot nu toe begrepen heeft, is u 
misschien opgevallen dat we nog niet in alle gewenste 
richtingen kunnen varen. 

Om dit te bereiken moet u overstappen: u beweegt de mast 
naar voren of naar achter en wacht totdat de plank stopt 
net draaien: u vaart dan pal tegen wind in of juist met 
wind nee. Op dat moment stapt u naar de andere kant van 
het zeil aop de plank door eerst voorop de plank te gaan 
staan (dus VOOR de mast) en daarna weer terug te stappen 
net het zeil aan de andere kant. 

Door nu het zeil naar voren of naar achteren te bewegen 
draait de plank verder in de door U gekozen richting. 

Dit alles is in afbeelding 1 in beeld gebracht. 
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AFBEELDING 1 
1A 
Surfer staat links van het zeil, plank vaart min of meer 
met de wind mee (zie wind-pijl) 
18 
Nadat het zeil naar VOREN is bewogen, draait de plank met 
de klok mee (N.B. in dit voorbeeld ') totdat deze precies 
in de wind-richting vaart. 
10 - 
De surfer stapt naar de andere kant van het zeil … 
ip 
Nadat het zeil naar ACHTEREN is getrokken, draait de plank 
weer TEGEN de wind in, zodat de plank verder draait in 
klaokrichting. 


2. het SURFSIM programma 


Het surf-simslator-programma maakt het mogelijk om de 
zojuist besproken windsurf-theorie in praktijk” te 
brengen zonder een nat pak te halen. 

U heeft daar dan atleen een ATOM voor nodig (geheugens 
#2800..#A0D0) met een joystick. 

Als U het programma voor de eerste keer RUNt dan moet u de 
vraag “tabel aanmaken (1=ja)" beantwoorden met "17. 

Op het scherm verschijnt dan een surfplank en sen pijl die 
de windrichting weergeeft, de joystick doet dienst als 
zeil-mast. 

(dus: jsoystick naar voren = mast naar voren etc.) 

U moet nu eerst het zeil optrekken, waarna u het zeil 
ietwat schuin ten opzichte van de plank moet houden (van 
bovenaf gezien). 


Het programma maakt het mogelijk am te experimenteren met 
snelheidsveranderingen die optreden bij verschillende 
standen wan het zeil of verschillende vaar-richtingen. 


Veel plezier en vergeet niet: echt surfen is toch leuker. 
Andre de Bruin 


Bal suw 11 
2671 HL naaldwisk 
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DISKCAT LIBRARY SYSTEM. 


Zoals Nico Stad reeds in zijn artikel over de 
80-kolomskaart beschreef heb ik het volledige diskcat 
systeem uit de kast gehaald, hier en daar wat opgepoetst, 
en geschikt gemaakt voor de 80-kolomskaart. 

Als U het systeem kent zal het allemaal niet zo moeilijk 
zijn; U prikt een 80-kdomskaart in Uw systeem en fietsen 
met de hele handel, Indien U het pakket nog niet kent 
hieronder een beknopte uitleg. 

Diskcat ís origineel geschreven door Frans le Blanc uit 
regio Den Haag. Het is een pakket van programma's wat er 
voor zorgt dat we schijven (geschreven op ACORN-formaat) in 
een bestand kunnen lezen, en op die manier overzichtelijk 
op kunnen bergen. Indien U op de eerste schijf in Uw bakje 
het systeem zet, en het regelmatig bijwerkt, kunt U Uw oude 
programma's snel terugvinden door gebruik te maken van de 
f ind-module. U kunt d.m.v. het pakket ook een 
gealfabetiseerde uitdraai maken van alle file's die op Uw 
schijven staan. Bovenstaand geldt ook voor de titels van de 
schijven. 

Hoe moet U het pakket bedienen, en wat is er voor nodig? 
Allereerst de benodigdheden op een rij: 

P-charme 

Geheugen van #2000 tot #9800 

Schakelsysteem 

DBOX-V1 

JOSBOX (Pill) 

80-kolomskaart (F.A.C.) 


Bediening: 

Voor de eerste keer: 

Draai het programma STARTDC 

indien dit klaar is start U het gehele pakket met *1. (Let 
wel! het opstartprogrammä moet op kant 0 van de schijf 
staan!!!) 

Indien U al een bestand heeft: 

Start met *1 

De diskdrive zal gaan draaien, en na enige tijd verschijnt 
er in dubbelhoog gekleurde 40-kolomsmode een menu, van 
waaruit U de verschillende modules aan kunt roepen. 

Uitleg bij de modules: 

Find: toets een filename of deel van een filename in, wordt 
opgezocht. 

Catalog: Zet de catalog van iedere gewenste schijf op het 
scherm. 

Print catalog: voert iedere gewenste catalog uit op de 
printer 

Print Index: print alfabetische lijst van alle filename's. 
Set new files: invoer van nieuwe of gewijzigde file's. Let 
op! indien U wlt stoppen met deze module dient U bij de 
laatste schijf die U invoert niet alleen de RETURN-toets 
doch ook de CTRL-toets indrukken! !. 

Quit: Stopt pakket. 
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Op de vergadering d.d. 13-9-86 is besloten om het door mij 
antwarpen ZA kaartje over te nemen. Door deze kaart aan de ATOM 
te koppelen ontstaat de mogelijkheid CP/M software te draaien. 
Met behuip van de 280 kaart is het ook mogelijk om ATOM-DOS en 
GDOS te draaien. 

Nu er voor de leden keus ìs uit twee DOS'sen wil de federatie 
weten wie de GDOS, en wie de 280 kaart wil gaan bouwen. Alleen 
dan kan de federatie de juiste hoeveelheid printplaten bestellen. 
Voor veel leden zal het onduidelijk zijn wat de ZS0 kaart te 
bieden heeft en wat niet, Het bestuur heeft mij daarom gevraagd 
om zo duidelijk mogelijk de verschillen weer te geven tussen de 
twee systemen wat betreft prijs en mogelijkheden, De leden kunnen 
dan zien of zij de extra mogelijkheden van ZBO kaart willen 
hebben en of zij de meerprijs ervoor over hebben. 


Allereerst zal ik duidelijk proberen te maken hoe de ATOM met 
280 kaart eruit ziet. In het biokschema hieronder is een ATOM 
getekend met een extra VIA. Mb. v. deze VIA kan warden 
aecommuniceerd met de 2060 kaart, De 280 kaart is voorzien van een 
disc controller. 





ATOM met extra GEEZ & 280 krt « drives 

en 30 kolommenkrt 
Wanneer men CP/M draait: fungeert de ATOM slechts als 
intelligente terminal. 
Aangezien er nu, weliswaar met een omweg. een dist-controller aan 


de ATOM hangt is het mogelijk een DOS voor de ATOM te maken. De 
GDS en ATOMdos zijn zodanig gewijzied dat alle disk-10 met een 
omwea gedaan wordt via de 280. Alle informatie over tracks 
sectors etc. wordt overgestuurd naar de Z80. Deze voert de lees 
ef schrijfacties uit, waarna het resultaat teruagestuurd wordt 
san de ATOM, Het zal eenieder duidelijk zijn dat door de 
noodzakelijke exstra communicatie, het laden en saven vertraaad 
wordt, Voor de beide DOS'sen geldt een vertraging van circa SOX 
tot 1004 ten opzichte van de originele DOS’ sen. 


Ik zal nu iets meer vertellen over de ATOM-DOS implementatie. 
Alle commando's uìt de originele ROM (TELEC of DECADOS of 
ATOMDOS) werken gewoon. Uit de DBOX-V1 werken de volgende 
commandu’s niet mear: *SECTOR, KFORMAT, KTYPE. 

De errcrafhandeling is vereenvoudigd: Er wordt geen foutmelding 
gegeven bij een kapotte schijf. Fij dergelijke calamiteiten loopt 
de machine vast, zodat men kan raden wat er fout is. Dergelijke 
fouten kamen bij mij circa t keer per jaar voor. 

Met een handigheidje is het mogelijk om meer directories op Ì 
schijf te zetten. Heeft men een 2K80 tracks drive (1 Mb), dan kan 
men SKZl=248 files op 1 schijf kwijt, 


Gver de GDOS implementatie kan ik kort zijn: Alle kommando's zijn 
gebleven. Men kan dus ook formatteren wanuit de ATOM. Alle 
foutmeldingen in zoals hij het origineel. 

in teaenstelline tot de gewone versie van GDOS: heeft men geen 
extra hardware nodig voor het softwarematig omschakelen tussen 40 
en 30 track flapeiea, 








PAG.42 ATOM NIEUWS GDOS/280 PETER HUISKEN 


Wat zijn nu de meest belanorijke verschillen? 

-— Met de Z80 kaart heeft men naast CP/M ook GDOS en ATOMDOS 
beschikbaar. Het is echter ook mogelijk met de GDOS hardware 
de standaard ATOM DOS te draaien. De standaard DOSROM zou 
hiervoor gewijziad moeten worden. 

— Vanwege de ingewikkelde configuratie is experimenteren met 
de Z80 kaart lastiger. Door de extra mogelijkheden kan er 
echter wel meer geprobeerd worden. Men zou b.v. een 
printerbuffer kunnen programmeren m.b.v. de 280 kaart. 

— GDOS is een stuk goedkoper en laat zich eenvoudiger inbouwen 
omdat men slechts 1 print hoeft op te bouwen. 

— Met ZBO kaart: langzamer ATOM DOS 

— Met Z80-kaart is een zwaardere voeding nodig (circa j A). 


Wat heeft men nodig aan hardware bij een Z80 kaart 7 
— Een extra VIA aan de ATOM. 
— Een DOS rom in de ATOM op adres E00O (op schakelkaart) . 
— Nadat men hoofdpijn heeft gekregen van het 64 kolommen 
grafische scherm wenst men een 80 kolommen kaart. 
— Extra kabel met konnektoren tussen VIA en Z80 kaart. 
- Disc drive (net als bij GDOS 1). 


Voor een overzicht wat men nodig heeft voor een originele GDOS 
verwijs ik naar ATOM NIEUWS 5.2. 

Het 280 kaartje is f£75,- tot f100,- duurder dan de GDOS print. 
Een 80 kolommen kaart van de klub komt op f140,- (Elektuurkaart 
is ook bruikbaar) 

Een extra VIA inbouwen kost tussen de f15,- en f40,- 

De DOS-ROM in de ATOM kost f15:- en kan op een schakelkaart (of 
Piggybacken op FP-rom) 


Ik hoop hiermee voldoende duidelijk te zijn geweest. Zijn er 
desondanks nog dringende vragen, neem dan kontakt op met de 
hardware commissie of met mij: 


Peter Huisken, afd. Twente. 


P.S. Voor degenen die precies het verschil in benodisde hardware 
willen zien, volgt hier de onderdelenlijst van de Z80 kaart: 


TTL 1C’S NMOS IC’ S ELKO" S 
74L500 Z-80A CPU 1ouf 

74L502 (ZK) 2-80A FID &BuF 

781504 (2) 1792 of ME9877 

741506 27128 WEERSTANDEN 
74574 4164 BK) eeen 
FALS121 220 (54) 
745122 ik (5%) 
7ALS159 zEZ 

78L5145 CONDENSATOREN 10 (Ax 
7ALS15E TTET EIK 

7&LS157 (2k} tap 

T4LS197 Z5pF KRISTAL 
748195 &BPF TTET 
7A4L5567 1OnF 16 Mhz 


TALSAGE 1oûnF (1&ax} 
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CP/M MET DE Z80-KAART 


Door de beschikbaarheid van een ‘public domain’ vervanger is een 
CP/M 2,2 licentie niet nadia. Deze vervangende software bestaat 
uit: 
= ZCPRE, Vervangt de zogenaamde CEF. 
Geschreven door R. Conn. 
— ZCPRZ utils. Vervangen de CP/M programma’s STAT, FIP etc. 
Grotendeels geschreven door R. Conn. 
— F2DDS. Vervanat de RDOS. 
Geschreven door H.A.J, ten Brugge. 
Naast hovengenoemde software is een op de hardware aangepast BIOS 
‘Basic Input Output System) noodzakelijk. De voor het Z80 kaartje 
ontwikkelde BIOS heeft de volgende kenmerken: 
= Diskformaten instelbaar. Vergelijkbaar met EigRaard IÌ. 
— Allerlei soorten 5" en 8" drives aansluitbaar (ook gemixed). 
— Variabel formatteren van schijven mogelijk. 
= Alte invoer en uitvoer wordt geregeld doar de ATOM. Wil mn 
onder CP/M printen dan kan de printer-kabel gewoan in de ATOM 
blijven zitten. Bovendien is alles gebufferd (type-ahead van 60 
chars LIL), 
= Eventuele zertele interface in de ATOM functioneert als PUNCH 
en READER kanaal onder CP/M, 
Het terminal praaramma voor de atom komt in drie versies 
beschikbaar te weten: 
— Klub 80 kolommen kaart (G545) 
— Elektuur achtias kaarten (6845 
= Atom grafische scherm, 2444 (4847) 


Binnenkort wordt de komplete handteiding/ beschrijving 
gepubliceerd. Hierin wordt dan alle software en hardware 
uitvoerig besproken. 
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Et CMOS MONITOR 84% 
INLEIDING 


Om een beetje comfortabel met de CMOS-processor te kunnen werken, is een 
machinetaal monitor eigelijk onmisbaar. Daarom heb ik een nieuwe monitor 
ontwikkeld die ook net de extra CMOS instructies kan werken. De monitor zelf 
is in 45C02 assembly geschreven. Daarbij is geen gebruik gemaakt van de extra 
bit-manipulatie instructies die de Rockwell versie kent. Deze speciale 
instructies worden overigens wel door de monitor ondersteund, 


GEHEUGEN-GEBRUIK 


SOURCE #2900..#48FB of ander gebied, ca. 16K, SALFAA C2.0 nodig 
TABLE #8200..#8B48 of ander gebied, ca. 2.3K, synboltable 


OBJECT #7800,.#7FCC of ander gebied, ca. 2K 

zp #00A0..#00AG of andere 7 opeenvolgende ZP locaties 
ABS #012F..KOL3F of andere 17 opeenvolgende RAM locaties 
BUFFER #0100..#012E commando buffer 

STACK #0180..#01FF wordt in z’n geheel gebruikt 


SCREEN #8000,.#BIFF standaard ATOM beeldscherm 
OSWRCH HOODE..HOOE7 indirect ZP gebruik door aanrvep routine op #FFF4 
OSCLI CQS/D05 ZP’s als gebruik gemaakt wordt van een stercammando via #FFF7 


OPSTARTEN 
LINK #7800 —-> koude start (reset processor registers en monitor registers) 
LINK #7803 —-)> warne start (laat bovengenoende registers onveranderd) 


Men kan daar eventueel een BASIC-commando voor maken. Bijvoorbeeld: 


MON: JSR #C4E4 
JSR #7800 
JMP #CZCF 


COMMANDO’ 5 


Na het opstarten bevindt men zich in de cofnando-mode van de monitor. Dit is te 
zien aan de dubbele punt welke als proapt fungeert, De onderstaande lijst 
geeft een overzicht van de i-letter commando's welke door de monitor herkend 
worden. Zowel hoofdietters als kleine letters zijn toegestaan. Een eventuele 
“afkort-punt" na de comaaändo-letter is facultatief (dus naar keuze te gebruiken 
of weg te laten). Dok spaties hebben geen invloed. Meervoudige commando's zijn 
niet toegestaan, dus na de : is steeds maar 1 commando tegelijk mogelijk. 
Verder worden alle control-codes herkend (zie AT&P blz 131/152), Dit heeft o.a. 
als consequentie dat <ESC> of <CTRL+[) een terugkeer naar ATOM BASIC forceert. 
Alle adressen en data worden als zijnde hexadecimaal ge-interpreteerd. Hierbij 
zijn het #-teken en voorafgaande nullen facultatief, 

De betekenis van de in het overzicht gebruikte symbolen is als volgt: 


X,yo2 zijn lb-bits adressen 
d is B-bits data 
r is een register 
Seed is een keyboard-toets 
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CaPy 


VERIFY 


FILL 


HEX 


DISASS 


MEMORY 


STEP 


c 


EIEXAIEI 


kol d 


aan wu 


KY Z 


Ksys2 


xy,d 


Ky 


xy 
YY 


kopieert x t/m y naar z (met zw of z>y). 
Met read-after-write controle (zie VERIFY), 


vergelijkt « t/m y met z. 
Onjuiste adressen worden afgedrukt met hun inhoud. 
Secundaire commando's: <N> = NEXT DNE 

<SP> NEXT PAGE 

SRET> = RETURN 





vult x t/a y met d, 
Met read-after-write controle (zie VERIFY), 


geeft HEX/ASCII dump van x t/m y 

alleen van x 

vanaf x en verder 

vanaf laatste x-waarde t/m y 

alleen van laatste x-waarde 

vanaf laatste x-waarde en verder 

secundaire commando's: {N> NEXT ONE 
<5r> NEXT PAGE 
SRET> = RETURN 





disassembleert van x t/m y 
alle onder HEX genoemde commando vormen zijn ook hier 
toegestaan inclusief de secundaire commando's. 


zet monitor in memory mode vanaf x 

idem vanaf laatste k-waarde 

geheugen inhoud is te wijzigen door intypen van 2 hex 
digits of een spatie gevolgd door het gewenste ASCII- 
karakter. Als nadien de inhoud afwijkt van de ingetypte 
data, wordt dezelfde locatie nogmaals afgedrukt. 


Secundaire commando's; CN> = NEXT ONE 
<P> _= PREVIOUS ONE 
SRET> = RETURN 


start programma vanaf x in simulator mode tot de progran 
zounter (PC) gelijk is aan het display-adres y. Daarna 
gaat de monitor verder in step node. 

step mode vanaf x 

step mode vanaf huidige waarde van de PC 

Sim mode vanaf x (is gelijk aan: 5 x,0) 

sin mode vanaf huidige PC-waarde tot display-adres y 
Sim mode vanaf huidige PC-waarde (is gelijk aan: S ,0) 
In step sode worden de registers afgebeeld alsmede een 
disassembly van de aan de beurt zijnde instructie. 
Secundaire commando's in step modes 





<N> = NEXT DNE (of <SP)) 

<5> = SKIP ONE 

SR REALTIME EXECUTION (JSR of JMP) 
SREPT+N? = REALTIME EXECUTION (JSR) 

LRET 5 = RETURN 


Ter indicatie dat de monitor zich in sim mode bevindt, 
wordt de geheugenplaats welke correspondeert met de rechter 
bovenhoek van het beeldscherm na elke uitgevoerde 
instructie gewijzigd. Secundaire commando's in sim mode: 
SREPT>  = REALTIME EXECUTION (JSR) 
2CYRL+Q> = DUIT (RETURN TO MONITOR COMMAND MODE) 
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TRACE T x,y werkt hetzelfde als STEP maar na het bereiken van het 
display-adres y gaat de monitor verder in trace mode. 
De trace mode verschilt van step in de manier waarop 
de registers en disassembly worden afgebeeld. 
Dit gebeurt nu in de vorm van 2 kleine beeldscherpjes 
van elk 5 regeìs die zelfstandig scrollen. Alte onder STEP 
genoeade commando vormen zijn cok hier van toepassing. 


60 B x,y start een programma vanaf x in realtime node tot de PC 
gelijk is aan het breakpoint y,‚ waarna net een BREAK- 
melding naar de monitor teruggekeerd wordt, 

x start progranna vanaf x 

start programma vanaf huidige FC-waarde 

start programma vanaf huidige PC-waarde tot breakpoint y. 

Het opgeven van een x-waarde in het GO commando heeft 

ALTIJD tot gevolg dat de stackpointer op #FF gezet wordt! 

Het breakpoint y kan alleen een adres in RAM zijn, 


ea 
hd 


ASIGN REG r=d kent de waarde d toe aan een van de processor registers 
(A,X,Y,B,P) of monitor registers (R‚M). 


PRINT REB _P drukt de register set af alsmede een disassembly van 
de aan de beurt zijnde instructie, 


ZERO REG Z maakt A‚X,Y registers gelijk aan #00, reset het 
S-register op #FF en initieert het P-register op #34. 


STAR CDM + voert het betreffende ster-conmando uit (COS/DOS), 


QUIT 8 verlaat monitor en keert terug naar aanroepende programma 


REALTIME SUBROUTINE FACILITEITEN 


Er zijn 3 mogelijkheden ingebouwd om subroutines in realtime mode uit te laten 
voeren tijdens STEP of TRACE mode, namelijk door middel van: 


- het R-register 
- de REPEAT-toets 
- de R-toets 


Het R-register is het Realtime page register. Subrautine calls waarvan het 

hoge adres-byte groter ís dan of gelijk is aan de waarde van het R-reg zullen 
automatisch in realtime made uitgevoerd worden (op volle processor snelheid dus). 
Dit gebeurt niet alleen in step/trace mode maar ook in simulator mode! 

De default inhoud van het R-reg is #F8 zodat timingsgevoelige routines zoals 
t#FEbb e.d. automatisch op volle snelheid uitgevoerd worden. De invloed van het 
R-req kan uitgeschakeld worden door er #00 in te zetten. 


Als men tijdens sin/step/trace mode de REPEAT-toets ingedrukt houdt, wordt elke 
JSR instructie die de monitor tegenkomt in realtime mode uitgevoerd. Door wel 
of niet indrukken van de REFT-toets kan men dus naar keuze een subroutine 

in 1 klap uit laten voeren of stap voor stap doorlopen. Zodoende kan men 

reeds geteste subroutines snel passeren. 


De bovengenoemde faciliteiten gelden alleen voor JSR instructies. Het komt 
echter nog al eens voor dat een subroutine afgesloten wordt met bv. JMP #FFF4 
iep.v. JSR #FFFA;RTS. Om ook in dat soort situaties de routine in realtime te 
kunnen passeren is een 3e mogelijkheid aanwezig. Als men bij de betreffende 
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JMP op de R-toets drukt dan zet de monitor deze JMP instructie intern om in 

een JSR + RTS en voert de JSR in realtime mode uit. De R-toets kan ook bij JSR 
instructies gebruikt worden i,p.v. <REPTAN>, De routine op #FFF4 kan in step/trace 
node niet stap voor stap doorlopen worden i,v.m. “shared” zp-adressen! 


Als men een subroutine in realtime mode uit wil laten voeren dan moet dit wel 
een echte subroutine zijn. De tekstprint routine op #F/D1 is bijvoorbeeld 
geen echte subroutine! Als men'zo’n “subroutine” tegenkomt en men drukt op 

de R-toets dan verliest men de controle over het programma. De processor neemt 
dan de touwjes in handen en voert de rest van het programma in realtime uit, 
Bij zulke “subroutines" zit er derhalve niets anders op dan ze stap voor stap 
te doorlopen. Als het de tekstprint routine betreft kan men dit eventueel 
omzeilen door step/trace mode even te onderbreken (RETURN-toets) en vervolgens 
de zaak voort te zetten met: 6 ,#F7ES, Het is vanwege deze printroutine 

dat #FB als default waarde voor het R-register gekozen ís. 


ONDERBREKEN EN VOORTZETTEN 
Een met G.x,y gestart programma kan na BREAK AT YYYY voortgezet worden met: 


- STEF of TRACE (alle mogelijke vormen) 
- 60 G of 6,y ‘dus vanaf huidige PC-waarde) 
- 60 G.x of B‚x,y (mits de stackpointer op #FF staat) 


Een met STEF/TRACE gestart programma kan na onderbreking voortgezet worden met: 


- STEF of TRACE (alle mogelijke vormen) 
— 60 (alle mogelijke vormen mits de stackpointer op #FF staat) 


Dit verschil tussen STEF/TRACE en GO heeft te maken met de manier waarop zij 
aan het eind van een programma terugkeren naar de monitor. 

Een te debuggen programma moet met een RTS instructie worden afgesloten, Deze 
RTS geeft het logisch einde van het programma aan. (zoals END in BASIC), 

Het GO commando keert bij het bereiken van deze RTS naar de monitor terug via 
een terugkeer-adres op de stack (op de locaties HIFE en HIFF). Dit werkt dus 
precies hetzelfde als bij LINK vanuit BASIC. 

Bij het STEP/TRACE commando daarentegen wordt naar de monitor teruggekeerd 
als bij het uitvoeren van een RTS instructie de stackpointer op #FF staat. 
Dankzij deze constructie is het mogelijk om in sim/step/trace mode programma’s 
te verwerken die de stackpointer resetten (LDX @#FF;TXS). Bijvoorbeeld: 


SLINK #7800 start monitor 
5.C2CF,0 start BASIC-interpreter en simuleer until 0 
SPRINT "BELL",$7," type deze opdracht in en let daarbij 








BELL op de rechter bovenhoek van het beeldscherm 
id met CTRL+G terug naar monitor 
P print registers 





FC A X Y 8 NV BDIZC RM 

CDIE AB 60 OO FD GÔ110101 FB í 

CDIB C9 7F CMF ER7F 

0 aet QUIT terug naar ATOM BASIC 


Op dezelfde manier is het zelfs mogelijk om een BASIC programma te RUNnen 
terwijl de monitor in simulator mode werkt, Zorg ervoor dat zo’n BASIC- 
orogranma niet te lang is, want bij een ERROR of END wordt steeds de TOP 
opgezocht en goedgezet hetgeen nogal wat tijd kost. 

De invloed van de REFT-tpets laat zich goed demonstreren bij het LIST commando. 
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Uit diverse experimenten is gebleken dat de simulator gemiddeld ongeveer een 
factor 3500 trager werkt dan de echte CPU. Dit betekent dat een klus die de 
CPU normaal in 1 seconde afwerkt in sin mode bijna 1 uur in beslag neent! 
Als er realtime subroutines tussen zitten zal deze verhouding uiteraard 
anders zijn. Die traagheid wordt overigens voor het grootste deel veroorzaakt 
door de zeer inefficiente manier waarop de search routine uit de disasseabler 
de benodigde instructie lengte en adresserings mode bepaalt. 


Voor het debuggen van een zelf ontworpen BASIC commando (dat dus alleen in 
direct mode werkt) is het aan te raden dit niet aan het begin van de regel 

in te typen naar ergens halverwege. Op deze wijze kan men het debug-proces 
eventueel onderbreken en gebruik maken van monitor cammando’s zonder dat deze 
het te debuggen BASIC commando overschrijven. Bijvoorbeeld: 


MINK #7800 start monitor 
1 T.C2CF, YYYY YYYY is start-adres van te testen commando 
> LMOVE 10,40,75 ca. 13 spaties vooraf 


BREAKPDINT FACILITEERT 


Voor de breakpoint faciliteit wordt gebruik gesmaakt van een JSR instructie. 
Het voordeel t‚o.v, de BRK instructie is dat nu ook programma’s gedebugged 
kunnen worden die zelf gebruik maken van de BRK instructie. Verder levert het 
gebruik van de JSR instructie een uniek breakpoint op omdat er altijd maar 

Ì aanwezig is, wat overigens ook als een nadeel opgevat kan worden, Dok een 
nadeel is dat er nu 5 bytes geinstalleerd moeten worden tegenover 1 byte 
bij BRK. Dit kan in soamige gevallen voor problemen zorgen. Bijvoorbeeld: 


3000 A2 90 LDX @#FO 3000 A2 90 LDX @#90 
3002 BD OO 31 LDA #3100,X 3002 BD 00 31 LDA #5100,X 
2605 C9 OD CMP @#OD 3005 C7 OD CMP &#OD 
3007 DO 02 BNE #300B 3007 DO 02 BNE #300B 
3009 E& BO INC #80 3009 20 xx xx JSR MONERK 
ZOOB CA DEX 

Soo DO Fa BNE #5002 300C DO F4 BNE #3002 
ZO0E 60 RTS 300E 60 RTS 


Stel dat we bij het linker onzin programmaatje een break wilten genereren als 
de teller ?#BO wordt opgehoogd. Na 6.3000,3009 verandert de monitor het 
programmaatje (tijdelijk) zoals dat rechts is afgebeeld, Omdat ook de DEX 
instructie door het breakpoint overschreven wordt gaat het hier mis. Men moet 
dus een beetje opletten waar men een breakpoint zet, Een S-bytes instructie 
verdient hierbij de voorkeur want dan kan er niets pis gaan. 


Na een GO cogmando met breakpoint kan op 2 manieren naar de sonitor terug- 
gekeerd worden. Ofwel door het bereiken van het logisch einde ofwel door 

het bereiken van het breakpoint, In het laatste geval wordt de melding 

BREAK AT YYYY gegeven. In beide gevallen wordt de oorspronkelijke data op 

Y, yY+i en y+2 teruggezet. Als om welke reden dan ook niet meer naar de monitar 
teruggekeerd wordt, blijft het breakpoint bestaan hetgeen betekent dat de 
oorspronkelijke data als verloren beschouwd moet worden. 


Uit het bovenstaande blijkt dat bij het gebruik van een breakpoint de nodige 
voorzichtigheid geboden is. Maak er daarom alleen gebruik van als dat echt 
nodig is (bijv. als het gaat om snelheid of timing). 

Voor de neeste problemen is het STEP/TRACE commando amet display-point y 
toereikend, Een display-point tast het te debuggen programma niet aan en kan 
derhalve ook op een ROM-adres gezet worden. 
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MODE 
Het M-register is een monitor register dat fungeert als Mode-#lag, Hiermee wordt 


bepaald of de monitor in NMOS mode (0) of in CMOS node (1) werkt. Dit is van 
invloed op de werking van DISAS, STEP en TRACE. De default waarde is: 1, 


FOUTMELDINGEN 
COMMAND ERROR onbekend commando; 
onbekend register; 


parameter te weinig in COPY, VERIFY of FILL. 


STACK ERROR AT XXXX inhoud stackpointer lager dan #C3; 
niet toegestane voortzetting met GO. 


OPCODE ERROR AT XXXX onbekende opcode. 


FIXED ENTRY'S 


Aan het begin van de monitor zijn enkele begin-adressen samengebracht in 
een tabel zodat een en ander onafhankelijk van de versie vast ligt. 
De disass routine kan bijvoorbeeld gebruikt 


worden om de BASIC commando's DIS en CDIS MON+0 JMP caidstart 
te realiseren. Deze routine is ook geschikt MON+Z JMP warmstart 
voor gebruik in een 2-kolons disassembler. MONt6 JMP xdisass 
Er worden altijd 30 karakters afgedrukt MON+9 JMP xsearch 
zonder CRLF aan het eind, De search routine MON+12 .BYT zp'base 
kan bijv. gebruikt worden voor een relocator. MON+13 .WRD abs'base 
xdisass: in: zp,zp+t = adres out: disassembly 
AREG = mode zptb = tength-í 
xsearch: ins zp,zpti = adres out: AREG en zptb = length-í 
AREG = mode abs+b = addressing node 


XREG = mnemonic index 


NMOS VERSIE 


Omdat de meeste clubleden waarschijnlijk nog met de oude NMOS 6502 processor 
werken heb ik tevens een NMOS versie gemaakt, In vergelijking tot de bekende 
MONITOR. RH biedt de nieuwe monitor meer en krachtiger mogelijkheden. Een ander 
voordeel is het geringer zero-page gebruik, Daar staat echter tegenover dat 
de object code meer geheugenruimte in beslag neemt (ca. 1.75 K nodig). 


SLOTWOORD 


De monitor maakt gebruik van de specifieke mogelijkheden van het standaard 
beeldscherm. Dit betekent dat deze monitor niet zander meer op systemen net 
een BO kolomskaart kan werken. Wellicht dat iemand met een 80 kolomskaart 
zich geroepen voelt om de nodige aanpassingen aan te brengen voor een CMONB0 
en/of NMONBO versie. Ik heb daartoe behalve de source van CMON32 en NMON3Z ook 
enige technische informatie aan de redactie taegestuurd. 

Hetzelfde geldt eigenlijk voor het toetsenbord, maar een ieder is vrij om 

de zaak naar eigen (systeem) wensen aan te passen, 
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10 REM ——-—ee 640 A+3 

20 REM CMON32 4,2 &50 A+3 

30 REM -=nnnn 660 Rr4 

40 670 = A47 

50 ROM1:\ SALFAA C2,0 &80 a+ 10 

bo &80 At 11 
70 C=#7800:\ CODE (CA 2) 700 B+12 
80 M=#7800:\ RAM 710 ikreg = A+ 
„0 RO :\ ZP A+14 
100 12F :\ ABS (17) A+15 
110 N=23 _:\ TABLEN = Atlé 
120 

130 DIM BEN$D sap1 
140 japl+t 
150 PASS6:GOSUB a jaal+2 
160 PASSI:GOSLB a jep 241 





170 











180 PRINT "MONBEG"kaonbeg, * = #0100 

190 PRINT "MONEND"&nonend,* #OIDO 

200 PRINT "DISEND"&disend,” #0200-dept 
210 PRINT *SIMEND"%simend,”” MI200-2t dept 
220 

230 INPUT "DIS TEST Y/N "SB 160 :screen = #8000 
240 IF CzM IF $B="Y"* GOSUB t 870 :portb = #BOOL 
250 END = 4B002 
260 = #CDOF 
270 aASM-BEG IN = KFI54 
280 = #F194 
290 „OPTION :11000000 = #F1D5 
300 „CODE € = #F1E4 
310 „RAM M 3940 sopctabi = HFIFS 
ze 250 stentab = #F202 
330 \ mmm 940 tapctab2 = #F210 
340 \ DECLARATIONS = #F250 
350 \ meveneeven = #F668 
360 = #F671 
370 zack = #06 z HFIEL 
380 sbell = #07 = #F7FA 
390 :1f #0A = 4F7FD 
400 rcls tor = #B02 
410 ser = #0D = 4FBOB 
420 :home = ME = WFBIS 
430 reot = #EÂ = 8F875 
440 dept = #40 = #FB7E 
450 :skipi = #24 z WFB95 
460 rskin2 = H2C = #FAOB 
470 = #FAOE 
480 icurpas = #EO = #FD44 
490 icursor = REL = #FEb6 
500 tpagmod = #E& = #FE71 
510 = WFFEI 
520 sptri = 240 = #FFE6 
530 sptr2 = 242 = AFFES 
540 :ptr3 = 244 1170 rprcr}4 = #FFED 
550 slen = Zt6 1180 :prchar = AFFF4 
5460 1190 sstarcad = #FFF7 
570 toc = ptri 1200 sintvec = AFFFE 
580 tapt = ptri 1210 

520 stap2 e= ptrs+l 1220 Nomen 
400 itap3 = len 1230 \ MONITOR 
610 1240 \ neee 
520 send = A#O 1250 


630 zbytl = A+1 1260 :monbeg 
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1270 
1280 
1290 
1300 
1310 
1520 
1530 
1540 
1350 
1360 
1370 
1590 
1400 
1410 
1420 
1450 
1440 
1460 
1470 
1480 
12490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1400 
1610 
1620 
1630 
1640 
1650 
1640 
1870 
1650 
1700 
1710 
1720 
1750 
1740 
1750 
1760 
1770 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1890 
1900 
1910 
1920 
1930 
1940 
1950 


:start 


raxtemd 


snxtbufch 


tnxtaov 


1no’ star 


tcmd’ srch 


scmd'err 


\ fixed entry’s: 


JMP 
JMP 
JMP 
JMP 
„BYT 
…WRD 


JSR 
SEC 
ROL, 
LDA 
STA 


ELD 
LDA 
PHA 
LDX 
LDA 
JSR 
STX 
TAX 
PLA 
STA 
STZ 


LDY 
J5R 
CMP 
BER 
CMP 
BEE 
CHP 
BNE 


INY 
LDA 
STA 
INX 
CMP 
BNE 
JER 
BRA 


AND 
STA 
TAX 
JSR 
CMP 
BED 
CMP 
BEQ 
DEY 
TXA 
LDX 
CMP 
BEA 
DEX 
BPL 


JSR 


start \ cold 
nxtemd \ warm 
xdisass” 
xsearch 
Z\zp 

A \ abs 


zero 
\ cmos 
mode 
ERFB 
rreu 


#52 


#07 
en,” 
getend 
KOT 

\ Azû 


#52 
page 


BFE 
getbufch 
Eer 
nxtemd 
@#2i 

nx tbufeh 
ent 

no’ star 


emdbuf,Y 
emdbuf „ X 


Ber 

mx bmov 
starcmd 
nxtcad 


BRDF 
cad 


gethufch 
er 

emd’ srch 
e=" 

end’ srch+1 


@ladrtab-cmdtab-1) KEFF 
cadtab, X 

cmd’ fnd 

emd’ srch+3 


pr”conerr 


1970 
1930 
2000 
2020 
20:30 
2040 
2050 
2040 
2070 
2080 
2070 
2100 
zi10 
2120 
2130 
2140 
2160 
2170 
2180 
2190 
2210 
2220 
2250 
2240 
2250 
2260 
2270 
2280 
2290 
2500 
2310 
2330 
2340 
2350 
2360 
2370 
2380 
2590 
2400 
2410 
2450 
2440 
2450 
2460 
2470 
2490 
2510 
2520 
2550 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2620 
2630 
2640 
2650 
2640 
2670 
2680 


snxtend” 


zend’ fnd 


:default 


rgetadr3 


*skp’inc 


rekec’ cmd 


:getadr2 
zgetadr” 


1filk 


BRA 


PHX 
CMP 
BEG 
JSR 
STA 
CPx 
BNE 
JSR 
ASL 
BEG 
LDA 
LDX 
JSR 
JR 
TAX 
BEG 
ASL 
LDX 
JSR 
PLY 
CPy 
BCS 
EPy 
vos 
TAX 
BEG 
LDX 
JSR 
LDA 
PHA 
DRA 
STA 
JSR 
PLA 
STA 
ERA 


TYA 
ASL 
TAX 
JMP 


LDX 
JSR 
CMP 
BEO 
JSR 
LDX 
CPX 
BNE 


RTS 


LDA 
STA 
LDA 
LDX 
STA 
STX 
BRA 


nxteme 


gr=t 
getadr 3 
getadr2 
tmp4 
err 
P+5 
setpag 
A 
default 
etr2 
ptr2+ti 
to’ptri 
getadr2 


getadr3 
cmd 
eptr5 
aetadr” 


25 
skp’ inc 
ez 


P+5 


cad'err 
@tptr2+A6 REF 
incadr 

pagmad 


@#BO \ off 
pagmod 
exec "cmd 


paamad 
nxtemd’ 


A 
tadrtab, X} 


eptr 2 
getbufch 
ann” 
getadr” 
getadr 
endbuf,Y 
Ger 

P+3 


ptr5 
tap3 
ptr1 
ptrit! 
ptr3 
ptr5+t 
next 
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2690 1copy 
2700 zverify 
2720 snext 
2740 

2750 

2760 

2770 

2780 :store 
2800 :compare 
2820 

2830 

2840 

2850 

2840 

2870 

2880 

2890 tcap'ok 
2910 

2920 :ret0 
2940 

2950 inxtdis 
2970 

2980 1dis 
3000 

2010 

3020 

3030 

3040 :ret1 
3060 

3070 :nxthe: 
3090 

3100 shex 
3120 

3130 

5140 

3150 anxtasc 
3170 

3180 

3190, 

3200 

3210 

3220 

5230 

3240 

3250 

3260 zprhexasc 
3280 

3290 

3300 zar’asc 
3320 

3330 

3340 

5350 

3360 

3570 

3380 :no’ ran 
3400 

3410 :nxtaen 
3430 :memory 
3450 

3460 

3470 

34B0 :rdeen 


ASL, 
LDA 
BIT 
Bvs 
BPL 
LDA 
STA 
CMP 
BEQ 
LDX 
JSR 
LDA 
J5R 
JSK 
BCS 
JSR 
BCC 
RIS 


JSR 
BCS 
JSR 
LDY 
ENY 
JSR 
BCC 
RTS 


JSR 
BCS 
LDY 
STY 
ISR 
LDY 
JSR 
LDA 
J&R 
INY 
cPy 
BNE 
JSR 
BEC 
BRA 


PHA 
JSR 
PLA 
ChP 
BEC 
CMP 
BCC 
LDA 
JMP 


LDA 
JSR 
J&R 
JSR 
LDA 
JSR 
JSR 
JSR 


cad 
fptr 1) 
end” 
compare 
store 
tap3 
(ptr 3} 
(ptr 3) 
Eno’ ok 
Eptr5 
pradrsp 
tptr3) 
prhexasc 
control 
ret 
tneptrst 
next 


control” 
reti 
«dis 
len 


updptr 1 
nxtdis 


caat rol 
reti 

23 

len 
pradrbyts 
@o 
prsnace 
tetris, v 
br 'àsc 


@4 
axtasc 
updptrt 
nxthex 
er bf 


prbytso 


Pr 
P+é 
27 
P+4 
a 
orchar 


@oell 
orchar 
arcr if 
pe'gtri 
‘ptr 1} 
prhexasc 
prspace 
rubyte 


3500 
3510 
3520 
3530 
3540 
3550 
3570 
3580 
34600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3490 
3700 
3720 
3730 
3750 
3760 
3770 
3780 
5790 
3800 
3810 
3820 
3840 
3850 
3840 
5870 
3880 
3870 
3710 
3920 
5940 
3950 
3960 
5970 
3980 
3990 
4000 
4010 
4020 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4140 
41350 
4160 
4180 
4190 
4200 
4220 
4230 
4240 


znextmen 


2no” hex 


:no’ prev 
zerlf 


trabyte 


srwnibl 


tret2 


ztst’sp 


zrdnibl 


step 


strace 


1go” onl 


BCS 
ORA 
STA 
CMP 
BNE 
JSR 
BRA 
AND 
CMP 
BEG 
CMP 
BNE 
LDX 
JSR 
BRA 
EMP 
PNE 
JMP 


JSR 
BCS 
ASL 
ASL 
ASL 
Ast 
STA 


JR 
BC5 
PHA 
JSR 
PLA 
CLC 
RTS 


CMP 
SEC 
BNE 
JSR 
J&R 
STA 
ELC 
RTS 


JSR 
CMP 
ECS 
CHP 
BCS 
CMP 
BC5 
Jp 


JSR 
BRA 


JSR 
BPL 


LDA 
AND 
BEA 
LDX 
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no'hex 
tapt 
(per) 
(ptr i) 
no’ram 
incptr1 
nxtaem 
8D 
enn” 
nextaen 
epe 

no’ prev 
Biptri+kA6EHFF 
decadr 
nxtaen 
&cr 
rdmen 
prcrlf 


rwnibl 
tst'sp 
L] 

A 

A 

â 

tmpt 


rdni bl 
ret2 


praibt 


ret2 
erchar 
rdecho 
taoi 


rdehar 
@6 
ret2 
eran 

P+6 

BCH" “+1 
ret2 
asctahex 


prepare 
tst’ cad 


prepare 
clr’scr 


portb 
@:01016000 \ CTRL+A 
return” 

Eptr i 
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4256 JSR capadr 5010 :swap CLL 

4260 STA screent#1F 5030 LDX @dept-1 
4270 BNE go’an2 5040 LDY stackl,X 
4280 LSR cmd 5050 LDA stack2,X 
4290 JSR ack'erlf 5060 STA stack1,X 
4500 LDA cad 5070 TYA 

4310 CMP @*T" 5080 STA stack2,X . 
4320 BNE tst’ cmd 5090 DEX 

4330 iclr’ser LDA fcls 5100 BPL swap+3 
4550 JSR prchar 5t10 TEX 

4560 JSR coft 5120 TXA 

4370 BRA tst’ cmd 5130 BCC P+4 

4380 5140 SBC @2xdept+1 
4390 :go"on2 LDA mode 5150 ADC @dent 
4410 AND @:00111111 at60 TAX 

4420 STA mode 5170 TXS 

44350 JSR xsearch 5180 RTS 

4440 ;ga* ans LDA sreg 5190 

4460 EMP @#01NZ-dept 5200 rge JSR prepare 
8476 BCC stack’err 5220 LDY @#20 \ JSR 
4480 DX ada 5230 LDX sreg 

+490 CPX &s0F 5240 INX 

4500 BEG opcode’ err 5250 BEG stack’ ok 
3510 JSR sin 5260 LDX tap4 

4520 rtst’cad LDA cmd 5270 BEG continue 
4540 BMI go’ onl 5280 JSR reset’sreg 
4550 zreturn” BEQ return 5290 BRA stack’ ok 
4570 CMP @“T" 5300 rcontinue JSR tst"stack 
4580 BEQ nxt'trace 5320 BNE stack’err 
$590 5330 LDY @#4C \ JMP 
4600 inxtsten JSR prerlt 5340 sstack’ok STY byt1 

4620 JSK printreg+5 5360 LDY eo 

44650 inxtsten” STZ page 5370 BVS no’ brkpnt 
4450 LDA &:116000000 5380 snxtpush LDA (ptr2},Y 
4660 TRB aode 7 5400 PHA 

4670 JSR control” 5410 LDA brkpnt,Y 
4680 BCC go' eni 5420 STA (ptr2,y 
4690 BRA return 5450 INY 

4700 5480 CPY @3 

4710 :nxt’trace JSR upd’screen 5450 BNE nxtaush 
4730 BRA nxtstep” 5460 DEY 

4740 5470 sno’brkpnt JSR init’ 
4750 zstack'err JSR ack’crlf 5490 . LDX Brealtine2256 
4770 „ASC "STACK * 5500 LDY &realtime/256 
4780 BRA pr'err 5510 JSR execute’ 
4790 5520 BVS return 
4800 soncode'err JSR ack'crif 5530 ASL A 

4820 «ASC “OFCODE "‚eot 5540 LDY @2 

4830 5550 snxtpull PLA 

4840 :pr'err JSK print 5570 STA (ptr2),y 
4840 …ASC bell, “ERROR, eat 5580 DEY 

4870 5590 BPL nxtpull 
4880 :pr’at JSR print 5600 BCE return 
4900 «ASC * AT “‚eot 5610 JSR pull*pc 
4910 JSR pr’ptr1 5620 LDA @4FE \ -2 
4920 5630 JSR upd’pe’ 
4930 zreturn JSR con 5640 JSR ack?crlf 
4950 JSR ack’crlf 5650 «ABC *"BREAK", eot 
4360 LDA ptr1 5640 JMP pr’at 
4970 LDX ptri+t 5670 ú 

4980 STA pcsav 5680 :brkpnt JSR nonbrk 
4990 STX pcsav+l 5700 


060 5730 ‘realtime JMP pc} 
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5730 6520 LDA rreg 
5740 :prepare SEC 6530 JSR prbytsp 
5740 JSR swap+i 6540 LDA mode 
5770 LDA tap4 6550 AND @#01 

5780 BNE ret3 6560 JSR prnibl 
5790 zidpc LDA pesav 6570 zprerlé”* JMP prer lt 
5810 LDX pesavst 6520 

5820 :to’ptri STA 'ptrt 6600 zzera STZ areg 
5840 STX ptri+1 6620 STZ reg 
5850 zret3 BIT cad 6630 STZ yreg 
5870 RTS 6640 LDA &:00110109 
5850 &650 STA preg 
5890 sprintreg JSR 1dpe 6660 zreset’sreg LDA GRFF 
5910 JSR prheader’ 6580 STA sreg 

5920 spr” val JSR pr” values 6630 RIS 

5940 sxdis’ LDA node 6700 

5960 JSK xdisass? 6710 zasign LDX Blemdtab-regtab- 1) K#FF 
5970 BRA prerlt? - 6730 LDA end 

5980 6740 :nat'asign CMF regtab,X 
5290 tuod*screen JSR prheader 6760 BEA asign”fnd 
5010 LDY &#80 6770 DEX 

6020 ISR trane 6780 BPL nxt’asign 
6030 snxtscroll LDA screen-#20,Y 6790 

4050 STA screen-#30,Y 6800 :pr’caa'err JSR print 
5060 LDA screen+#A0,Y 6820 „ASC bell, “COHHAND ERROR” 
6070 STA screen +400, Y &830 BRA greel#" 
6080 INY 6840 

6090 BNE nxtscrol1 6850 sasign’tnd LOA ptr3 
6100 JSR pr145 6870 STA preg,X 
6110 JSR pr’ values &800 RTS 

6120 JSR pr1#5 6830 

6130 BRA ndis” 4900 rauit PLA 

6140 6920 FLA 

6150 sorltS LDx 25 6930 PLA 

6170 LDA @14 6940 STA pagnad 
&180 JSR orchar 6250 RTS 

6190 DEX 6360 

6200 BNE P-4 6970 scontral  JSR orerlf 
6210 RIS 6990 scontrol” JSR scankb 
&220 7010 CPY &er 

6230 sprheader LDA &home 7020 BEQ reta 
6250 JSR prchar 7050 LDX page 
6260 sprheader” JSK print 7040 BNE setpag+2 
6280 ASC “PC AX Yv 5 7050 CPY @22E \_N 
6290 „ASC * NV BDIZC RM” 7060 BEQ ret4-1 
6300 zorcrlf’ BRA prerif”” 7070 TYA \ SF 
&320 7080 BEQ space’ bar 
6330 sor'values JSR pr'otr1 7090 LDA @:01000000 
6350 LDX @4 7100 CPY B32 \R 
6360 inktreg LDA preg,X 7110 BEQ und” sode 
6380 JSK prbytsp 7120 CPy 8#33 \ 5 
6390 DEX 2430 BNE contral’ 
6400 BNE nxtreg 7140 ASL A 

6410 LDA preg 7150 zund’mode TSB aode 
6420 LDY €8 7170 CLC 

6430 znxtbin RSL A 7180 RTS 

6450 PHA 7190 ispace'bar JSR prcrit 
6460 TxA 7210 :setpag LDY 815 

6470 JSR prbit 7230 Dex 

6400 PLA 7240 STX page 
6490 DEY 7250 ELC 

6500 BNE nxtbin 7250 :ret4 RTS 


6510 JSR prspace 7280 
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7290 :pr'ptri 
7310 

7320 

7530 sincptr3 
7350 

7560 zincptri 
7380 zupdptri 
7400 

7410 

7820 

7450 

7440 

7450 sret5 
7870 

7480 zack'crlf 
7500 

7510 sprint 
7350 

7540 

7550 

7560 anxtpr 
7580 

7590 

7600 

7610 

7620 

7650 

7640 rendpr 
7640 

7670 1con 
7690 

7700 :coff 
7720 

7730 

7740 

7750 

7760 

7770 

7780 sreatab 
7800 
7810 : 
7830 
7840 zadrtab 
7840 

7870 

7880 

7890 

7900 

7910 

7920 

7930 

7940 

7950 

1960 

7970 

7980 

7920 :manend 
6000 

8010 

8020 

H020 

8040 

8050 :xdisass’ 


dt ab 





LDX @ptr1 
JMP pradrsp 


LDX @ptrItHAA LAFF 
J5R incadr 

LDY @t 

LDX @ptr1 

JSR incadremp 

BEO ret5 

DEY 

BNE updptr1+2 

ELC 

RT3 


JER print 
„ASC ack,cr ‚ent 
PLA 

STA ptr3 

PLA 

STA otr3+1 

INC ptr3 

ENE P+4 

INC ptr3+1 
LDA (ptr5) 

BME endor 

SSR prascii 
BRA nxtor 

JNF (ptr3) 


LDA @#80 
„BYT skip2 
LDA @0 

CMP cursor 
BEU ret5 
STA cursor 
LDY eurpas 
JMP invert 


„ASC “PSYXARM" 
«ASC "CVFHDSTGM=P20" 


HRD copy 
‚WRD verify 
…WRD fill 
„WRD hex 

„HRD dis 

„WRD step. 
.WRD trace 
„RD go 

…URD aeaory 
.WRD asign 
„KRD printreg 
„NRD zero 
„NRD quit 


\ DISASSEKBLER 
\ 





ISR xdisass 


8070 


8080 :fetch 


8100 
B110 
8120 
8130 
8140 
8150 
8160 
B1B0 
8190 
8200 
8210 
B220 
B250 
8240 
B250 
8260 
8270 
B280 
8290 
B3to 
8320 
8340 
8350 


8360 enxtchar 


8380 


8390 enxtrol 


8410 
B420 
B430 
B440 
8450 
8460 
8470 
8480 
B490 
8500 
8510 
8520 
8530 
8540 
8550 
B5&0 
8570 
B580 
590 
B600 
8630 
8620 
8630 
B640 
B650 
B&60 
8670 
84BO 
8690 
8700 
8710 
B720 
8730 
8740 
R750 


LDy @2 

LDA (ptri),y 
STA byti,Y 
DEY 

BPL fetch+2 
RTS 


JSR xsearch 
PHX 

JSR pradrbyts 
LDA spctab,Y 
TAY 

JSR pryspc 


PLX 

BPL skipnen 
LDA mnenr-#B0, X 
LDY anenl-#80, X 
BRA skipold 
LDÁ mnetabr, X 
LDY anetabl,X 
STA tapi 

STY tap2 

LDY @5 

LDx @5 

LDA 80 

ROL tapl 

ROL tau2 

ROL A 

DEX 

BNE nxtral 
ADC @f3F 

JSR prchar 
DEY 

BNE nxtchar 
JSR prspace 


LDY @i1 
LDX ada 
BPL normal 


LDA (otr 1 
AND @#70 
LSR A 

LSR a 

LSR A 

LSR A 

JER prnibt 
JSR print 
„ASC “‚er 
LDA byt2 
JSR pryt 
LDY @6 
DEX 

BMI pryspc 
JSR print 
„ASC *‚° 
LDA byt3 
STA byt2 
LDX 02 
DEY 
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8760 :normal StY tapt 
8780 Loy @7 
8790 LDA admformat, X 
B800 STA tap 
8810 rnxtbit CPy @5 
B830 BNE nxtasl 
B840 Txa 

2850 BNE skiprel 
3860 

8870 LDA byt2 
B880 BPL F+2 
8890 DEX 

B500 ADC otri 
2910 PHA 

8920 TXa 

8930 ADC ptr1+i 
8940 TAX 

8950 PLA 

B960 ELC 

2270 : ADC len 
8980 BTA byt2 
8990 Txa 

2000 ADC &0 
010 STA byts 
9020 LDX @2 
9030 BRA nrhex 
9040 

9050 zskiprel _LDX len 
9070 BEG nxtasl 
080 :prhex LDA en 
9500 JSR prchar 
9110 DEC tmn1 
9120 taxtbyt’ LDA byti,X 
9140 JSR prbyt 
9150 DEC tap! 
9140 DEC tap1 
7170 DEX 

9180 BNE nxtbvt” 
9190 snatasl ASL tao? 
9210 BCS skipchar 
9220 LDA admchar,Y 
9230 JSR orchar 
9240 DEC tmpi 
9250 tskinchar DEX 

270 DEY 

9280 BPL nxtbit 
9290 LDY taol 
9300 

9310 :pryspc INY 

7550 DEY 

9340 BEO reté 
7550 ISR prspace 
9260 ERA pryspc+1 
7370 

9386 :nradrbyts JSR pr’ptri 
7400 LDy asFF 
9410 :nxthvt INY 

2430 LDA (ptri,.y 
9440 JSR prbytsp 
7450 CPY len 
9360 ENE nxtbyt 
9470 zreté RTS 


9490 


2500 
2520 
2550 
9540 
9550 
9540 
2570 
9580 
9590 
9600 
IGLO 
2620 
760 
9640 
9650 
9670 
9580 
F690 
7700 
9710 
9720 
2740 
2750 
7770 
9780 
2730 
9800 
810 
9850 
5B40 
3860 
7870 
9880 
8900 
9910 
9920 
9930 
2940 
2950 
9960 
8970 
9990 
10000 
10040 
10020 
10030 
10040 
10050 
10060 
10070 
10080 
10100 
10110 
10120 
10150 
10150 
10180 
10170 
10190 
19200 
10210 
10220 
10240 


1xsearch 


snotind 


tnotspecial 


snxtenp 


soldsearch 


inxtsgarch 


inkt’try 


inxtrar 


en’ match 


tillegal 


1tound 


1storten 


LSR 
J8R 
BCC 
TAX 
AND 
CMP 
ENE 
DEC 
JSR 
ING 
LDY 
STY 
RTS 


AND 
CMP 
BNE 
TXA 
AND 
TAX 
TXA 
LDX 
CMP 
BEG 
DEX 
BMI 


EMP 
gea 
INY 
sty 
LDX 
SEC 
LDA 
SBC 
SEC 
SBC 
BNE 
STA 
Dy 
ROR 
ROR 
DEY 
BNE 
LDY 
AND 
ENE 
LDA 
AND 
BNE 
DEX 
BNE 
CPY 
DNE 
LD 
LDy 
sTy 
LDA 
CAP 
BNE 
LDA 
AND 
STA 


A 
fetch 
aldsearch 


ELF 

er12 
notind 
bytt 
nxtsearch 
byt1 

BROD 

ada 


@#o7 
&#07 
notspecial 


&#oF 


EN-1+480 
opcade-#80,X 
new 


axtenp 


e&D4 
illegal 


adn 
&340 


byt1 
opctab1,Y 


opctab2, X 
na* match 
tap1 
adagrp.X 
A 

tmpt 


axtror 
adm 
admtabt, Y 
found 
admtab2, Y 
tapi 
found 


nat’ tey 
@ROE 
nxtsearch 
ger 
2aoF 

adm 
tentab, Y 
BoF 
storten 
@1 

@#07 

len 
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10256 
10250 
10270 
10296 
10300 
10310 
10320 
10330 
10340 
10350 
103560 
10370 
103580 
10390 
10410 
10420 
10440 
10450 
19470 
10480 
10490 
10500 
10510 
10530 
10540 
10550 
105460 
10570 
10580 
10590 
Lü 40 
10620 
10630 
10640 
10650 
10460 
10670 
104680 
10670 
10760 
13710 
10720 
10730 
10740 
10750 
10760 
10770 
10780 
10790 
10800 
10810 
10820 
10830 
10840 
10850 
10860 
10870 
10880 
10890 
19900 
10910 
10920 
10930 


RTS 


LDA 
PRA 
AND @#ar 
STA adm 
PLA 

LSR A 
ESR A 
LSR A 
LSR A 
BRA storlen 


teu Len” ada-#80,X 


zbpctab BYT 7,4,1 


sadschar „ASC "AY‚)X, (@* 


tadmformat „BYT &FF,4FE HEF, #F9 
„BYT &CF, HEF, RF, R7F 
„BYT #F9,4CF,4D1, #87 
„BYT #FF,#B7,#F9, #FF 
opcode „BYT #34, 83C,NB9, #7C 
.BYT #1A, #3A, #80, #04 
„BYT: #OC, #14, #1C, #5A 
.BYT #7A, DA, SFA, #64 
„BYT #74, #9C, GE, 407 
„EYT #87, #0F,#8F 
tlen’adn _ .BYT #14, #29, #16, HZB 
„BYT #O1, HOL, #12, #15 
„BYT #20, #15, #2C, #60 
„BYT #00, 400,#00, #15 
„BYT 
„BYT #95,#A0, AO 
:mnenl 
sanenr = mneml+N 
1disend = near +N 
„END 


REM MNEMONICS 
“BITBITBITJNP" 





$k+t INCDECHRATSB" 
$B+24="TGBTRBTRBPHY" 
SE+Jb="PLYPHEPLKSTZ" 
3B+4, STZSTZSTZRMB" 


SMEBERBBS" 


REM COMPRESS 

IF 2BFFL3:1 GOTO 10910 
LePiR=PeN; IF OXD0 L=0j R=OeN 
FOR I=6 TO N-t 

G=(PBEHIF+1 EB 

L?1=G! ({B21&8LF41)/4) 
REl=(B?1+1) 6644 C(B?241) 82) ERE 
B=B+3; NEXT 1 


ASM-CONT INUE 


„CODE disend 


#14, #2C, #29, #95 


10940 
10950 
10960 
10970 
10980 
10790 
11090 
11020 
11030 
11040 
11050 
11070 
11080 
11100 
11110 
11120 
11130 
11140 
11150 
11160 
11170 
11180 
11200 
11210 
11220 
11230 
11250 
11260 
11270 
11280 
11290 
11500 
11310 
11320 
11340 
11350 
11360 
11580 
11390 
11400 
11410 
11830 
11440 
11450 
11460 
11470 
11480 
11490 
11500 
11520 
11540 
11550 
11560 
11570 
11590 
11600 
11610 
11620 
11630 
11640 
11660 
11670 
11680 


ssim 


tupd’ pc 


supd’pc’ 


1sinulate 


tbrk 


:stpr’pc 


arti 


arts 


tend 
szero'len 


tpull”pe 


no’ brk 


«RAM 


MPC 


\ SIMULATOR 


NV memmen 


JBR 
BIT 
BNI 
JER 
LDA 
INC 
ELC 
BPL 
DEC 
ADC 
STA 
BEC 
INC 
RTS 


LDY 
LDA 
BNE 


JSR 
LDA 
DRA 
J5R 
ORA 
STA 
LDA 
LDX 
JER 
BRA 


JSR 
STA 
DEC 


LDX 
INX 
BEQ 
CPX 
BNE 
JSK 
BNE, 
JSR 
STZ 
LDA 
STA 
RTS 


JR 
STA 
JSR 
STA 
RTS 


CMP 
BER 
EMP 
BEQ 


init 
mode 
upd’ pe 
sinulate 
len 

â 


Pas 
pc +1 
pc 
pe 
Pas 
pe +1 


@2 
tpc} 
no’brk 


push’ pe 
pres 

®: 00010000 
push 

@: 00000100 
areg 
intvec 
intvectt 
to'ptri 
zero’ len 


pull 
preg 
len 


sreg 


end 

BRFE 
pul1’pc 
tst’ stack 
pull’ pe 
reset’ sreg 
cmd 

&sFF 

len 


pull 
pc 

pull 
pe+t 


&840 
rti 
2860 
rts 
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11590 CMF @RAC 12420 LDY yreg 
11760 BEQ ;mo 12440 PLP 

11710 CMP &#&C 12450 JMF byti 
11720 BEQ moi 12440 

14750 CHP_&#7C 12470 tmonbrk FRE 

11740 BED jmpx 12490 SEC 

11750 CMF e#z0 12500 .BYT skip2 
11760 DNE tst’ bra 12510 :back PHP 

11770 12550 CLC 

11780 :jsr BVS execute 12540 STY yreg 
11800 EIT porte 12550 STX xreg 
11810 BVC execute 12560 STA areg 
11820 LDA rreg 12570 FLA 

11820 Bea sr” 12580 STA preg 
11840 DEC A 12590 TSX 

11850 CMP ‘per. 12600 STX sreg 
11860 BEL execute 12610 LDX tapt 
11870 1jse”, JSR push”pe 12620 TX5 

11890 12630 ROR A 

11900 1jmo” ELC 12640 PLP 

11920 +: sapi LDA (pe),‚y 12650 RTS 

11940 Tax 12660 

11950 DEY 12670 :branch LDX tmoi 
11960 LDA (pct ‚Y 12690 Txs 

11976 JSK store 12700 FLF 

11980 BCS sap’ 12710 LDY èt 
11990 RTS 12720 BCC F+2 
12000 12750 INY 

12010 1 smpx ISR zap” 12740 LDA (pc), Y 
12030 LDY xrea 12750 JMP upd’ pe? 
12040 INY 12760 

12050 cLv 12770 zpush’pc __ TYA 

12060 12790 CLC 

12070 + jmp BVC ;mo’ 12800 ADC pc 
12090 LDA &#20 \ JSR 12810 FHA 

12100 STA byt1 12820 LDA pc+t 
12110 JSR execute 12830 ADC #0 
12126 STZ Len 12840 JSR push 
12130 BRA rts 12850 FLA 

12140 12860 

12150 stst’bra _ INY 12870 :push LDX sreg 
12170 CPX #80 12890 STA stack, X 
12180 EEQ bra’ spec 12900 DEC sreg 
12190 CPX @#02 12910 RTS 

12200 CLE 12920 

12210 BNE execute 12930 :pall INC sreg 
12220 12950 LDX sreg 
12230 :bra’noraal LDX @4 12960 LDA stack, X 
12250 LDY &#EA \ NOP 12970 RTS 

12260 12780 

12270 texecute” STX byt2 12990 :tst’stack LDX stack+#fF 
12290 13010 CPX Rl jmpi-1)/256 
12300 :bra’spec STY bytä 13020 ENE ret? 
12320 13030 LDX stack+AFE 
12330 texecute _ FHP 135040 CPX Bl japt-14256 
12350 TSX 13050 sret7 RTS 

12360 STX tmo1 13070 

12370 LDX sreq 13080 LDY ten 
12380 TXS 13100 INY 

12390 LDA preg 13120 LDA duamy, Y 
12400 PHA 13130 STA byt1,Y 
12410 LDA areg 13140 cy eB 


12420 LDX xreg 13150 BCC init” 
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15160 1dummy RTS \ BYT1 
135180 NOP \ BYT2 
13190 NOP \ BYT3 
13200 JMP back 
13240 JMP branch 
13220 

15230 :simend 

13240 

15250 „END 

13240 

15270 RETURN 

135280 

15290 tREM DISASS TEST 

15300 PRINT $12$i4???rrrrrernnn) 


15310 Wek2800;U=0; V=eptri 

15320 FOR I=#00 TO #OF 

18330 FOR J=R00 TO #FO STEF #10 
13340 PW=JtIjW2i=? WE lg WP 2E? 2 
45550 !V=WsAsljLINK xdisass’sP.” 
15360 FOR Q=#81CO TO #81DC STEP 4 
13370 U=U+!'O;NEXT O;NEXT JjNEXT I 
15580 IF Uz=$AEFFSBFS PRINT"OK";R. 
13390 FRINT $7"FOUT"’; RETURN 


SOURCE: 2900 48FB 


ORJECT: MONBEG 7800 
MONEND 7CBA 
DISEND 7879 
SIMEND 7FED 


AUTEUR: J.JORSE 
DUINWEG 55 
4556 AF OOSTKAPELLE 


DATUM. AUGUSTUS 1986, 
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ROMI;\ SALFAA C2.G 


C=#7800;\ CODE (CA 1,75K) 
M=#7800;\ RAM 

Z=kA0 GN ZP 7) 
A=f012F;\ ABS (17) 


PASS0;GOSUB a 
PASSí;GOSUB a 


PRINT “MDNBEG "&monbeg,' 
PRINT “MONEND" <monend, * 
PRINT "DISEND"&disend,* 
PRINT "SIMEND"&si mend," ” 


INFUT "DIS TEST Y/N "$TOF 
IF C=M IF $TOF="Y" GOSUB t 
END 


aÂSM-BEGIN 


„OPTION 2010060000 
„EODE C 
„RAM M 


N mmm 


\ DECLARATIONS 


\ meenen — 


sesso 
moarIe 


Mm 
SP 


ENEN 


meeneem 


is 
ls 


+curpos = #EO 
*cursor HEL 














tpagmod = #E6 
:ptri = 240 
zptr2 = 242 
setes = 244 
zlen = Z+6 
zp ptr1 
itapl ptr3 
:tmp2 = ptr3+1 
ttmp3 = len 
zcmd A+0 
zbyt1 Att 
:byt2 = A+2 


zbyt3 = A#5 
zsmpt = A+4 









































540 ssap2 = A47 
650 :preq = A+10 
560 zsreg = AtL1 
670 zyreq = A+12 
GBO sxreg = A413 
690 rarea = At14 
700 = A+15 
710 zeode = A+16 
720 
730 stap4 sap1 
740 snage jmpl+t 
750 tadm = japl+2 
760 ipcsav = jmp2+1 
770 
780 zcndbuf = #0100 
790 istack = #0100 
BOû :stackl = #0200-dept 
A10 zstack2 = #0200-dept 
820 
850 :screen = #8000 
84 sportb #ROO1 
850 zportc HBO 
860 :getemd BCDOF 
870 :anetabl HF154 
BBO :mnetabr #F194 
870 zadmtab1 KEIDS 
900 radstab2 #FIE4 
910 sopctabt = #FIFS 
920 :lentab #FZO2 
950 zopctab2 NF210 
940 radmgrp = #F250 
950 1decadr #FGAE 
960 sincadr #F67 1 
970 :pradrsp AEZEL 
280 tarbytsp KF7FA 
rspace Kittel: 
1000 sprbyt #FBOZ 
1010 tprnibì #FO0B 
1020 rprbit #FO1S 
1030 1getbufch = #F875 
1040 zasctohex HDE 
1050 :getadr #89 
1060 sincadrcai #FAOB 
1070 tenpadr #FAOE 
nvert HFD44 
frame HEEGG 
zscankb HFE7i 
srdchar AFEES 
decho #FFE& 
rascii AFFES 
rorlf #FFED 
rchar HEEF 
teremd AFFF 
tintvec = BFFFE 
\- - 
\ MONITOR 
Nn 


\ fixed entry’s: 


CMOS 


1270 
1280 
1290 
1300 
1310 
1320 
1330 
1540 
1360 
1570 
1580 
1590 
1410 
1820 
1430 
1440 
1456 
1840 
1470 
1480 
1490 
1500 
1510 
1520 
1540 
1550 
1560 


1570 
1580 
1590 
1690 
1410 
1630 
1640 
1650 
1460 
1670 
1680 
1690 
1700 
1710 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1830 
1840 
1850 
1850 
1870 
Le80 
1890 
1910 
1920 
1930 
1950 
1960 
1970 


MONITOR JJ. 


JMP 
JMP 
JP 
JIP 
„BYT 
„WRD 


JSR 
LDA 
STA 


‘start 


ELD 
LDA 
PHA 
LDK 
LDA 
JR 
STX 
PLA 
STA 
JSR 


zaxtend 


LDY 
J&R 
CMP 
BED 
cmP 


BCC 


CMP 
DNE 


znxtbufch 


INY 
LDA 
STA 
INX 
ENP 
BNE 
JSK 
JMP 


zaxtmov 


AND 
STA 
TAX 
JSR 
CMP 
BEG 
CHP 
BEG 
DEY 
TXA 
LD 
CMP 
BEG 
DEX 
BPL 


no’ star 


temd’srch 


JSR 
JAP 


cmd’ err 


zcmd'fnd TXA 
PHA 
CMF 


Beg 


JOBSE 


start \ cold 
nxtcad \ warm 
disass 
search 
2\zp 
A \ abs 


zero 
a#FB 
rreg 


#az 


#97 
eg” 
getcad 
#07 


#52 
Elrmadpag \ K=0 


GEEF 
getbufch 
ter 
nxtemd 
ea21 
nxtbutch 
ent 

no’ star 


eadbuf,Y 
endbut,X 


Bcr 
nxtmov 
starcad 
axtend 


EDF 
cad 


getbufch 
en 

end’ arch 
Lik N 
cad” srch+i 





@tadrtab-cadtab-1}KFF 
endtab,X 
end’ fnd 


cad’ srch+3 


pr*con’err 
nxtond 


e= 
get adr 3 


1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2100 
2110 
2120 
2130 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2270 
2280 
2270 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2470 
2490 
2300 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2600 
24610 
2620 
2630 
2640 
2650 
2650 
2479 
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sdefault 


rgetadr3 


sskp’ inc 


vexec” cmd 


zgetadr2 
zgetadr’ 


still 


«copy 


JSR 
STA 
CPX 
BNE 
JSR 


getadr 2 
tap4 
en, 
P+5 
setpag 


ABL. A 


BEG 
LDA 
LDX 
J&R 
JSR 
TAX 
BEQ 
ASL 
LD 
JSR 
PLA 
ERP 
BCS 
CHP 
BCS 
LDX 
BEO 
LDX 
JSR 
ASL 
TAX 
LDA 
PHA 
ORA 
STA 
JSR 
PLA 
STA 
JMP 


LDA 
PHA 
LDA 
PHA 
LDY 
RTS 


LDK 
JSR 
EMP 
BE@ 
JSR 
LDX 
crx 
BNE 
DEY 
RTS 


LDA 
STA 
LDA 
LDX 
STA 
STX 
BEC 


default 
ptr2 
ptr2+1 
to’ptr1i 
getadr 2 


getadr 5 
cad 
Botr 5 
getadr” 


es 

skp’ inc 

@s 

P+& 

ptr3+2 

cad’ err 

@ptr2e 86) FF 
incadr 

A 


pagnad 


B#80 \ off 
pagmod 
exec’ cad 


pagmod 
nxtcad 


adrtab+1,X 
adrtab,X 


@o 
\ C=0 


&ptr2 
getbufch 
ens 
getadr 
getadr 
emdbut, Y 
@cr 

Pe3 


ptr3 
tap3 
gtr1 
ptri+1 
ptr3 
ptr3+t 
next 
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2480 :verify ASL end 2490 DRA tmp1 
2700 :next LDA tptrij,Y 3500 STA (ptri),Y 
2720 BIT cmd 3510 CMP (ptrij,Y 
2730 BVS caapare 3520 DNE na’ ram 
2740 EPL store 3530 rnextmem __JSR incptri 
2750 LDA tmp 3550 BEA nxtmem 
2760 :store STA (ptr5),Y 3560 :no” hex AND &#DF 
2780 zcompare CMP (ptr3),Y 3580 CMP en” 
2800 BEQ cap’ ak 3590 BEQ nextmen 
2810 LDX @ptr3 3600 Cup gepre 
2820 JSR pradrsp 3610 ENE no’ prev 
2820 LDA (ptr3),y 5620 LDX Biptri+$Ab)kHFE 
2840 JSR prhexasc 3630 J5R decadr 
2850 JSR centrol 35640 BES nxtmem 
2860 ECS reto 3450 zno'prev EMP &cr 
2870 zcmp'ok JSR ineptr3i 3670 BNE rdaem 
2890 BEC next 34680 zerlf JMP prerlf 
2900 zretû RTS 3700 

2920 3710 srubyte JSR rwnibl 
2930 inxtdis JSR control’ 3730 BES tst’ so 
2950 “ECS rett 3740 ASL A 

2940 sdis JSR dis’ 3750 ASL A 

298ú LDY ten 3760 ASL A 

2990 INY 3770 ASL & 

2000 JSR updptri 2780 STA trol 
3010 BEE nxtdis 3790 

3020 reti RIS 3800 :rwnibl JSR rdnibt 
3040 5820 BCS ret2 
2050 rnxthex J8R control 3830 FHA 

3070 BCS reti 2840 JSR prnibl 
3080 shex LDY Éé3 3850 FLA 

2100 STY Len 3866 CLC 

3110 JSR pradrbyts 3870 tret RTS 

z120 LDy @0 3870 

2130 inxtasc JSR prspace 3900 stst'sp CMP &" 
3150 LDA iptri),Y 2920 SEE 

E16D JSK pr’ asc 3930 ENE ret2 
Z170 INY 3940 JSR prchar 
5180 CPYy &4 3950 JSR rdecho 
3190 BNE nxtasc 5940 STA tmp! 
5200 JER updptrt 3970 ELC 

35210 BLT nxthex Z980 RTS 

3220 BCS erif 3990 

3230 4000 «rdnibl JSR rdchar 
3240 sprhexasc PHA 4020 CMF &"G" 
5260 ISR prbytso 4030 BCS retz 
3270 „PLA 4040 CMP ana” 
2280 spr’asc CMP @* * 4050 BCS P+á 
2300 BCC P+ 4060 CMP BCH 9" +1 
3310 CMP_@27F 4070 BCS ret2 
3320 BCC P+4 4080 JMP asctohex 
5330 LDA @".* 4090 

3340 JMP prchar 4100 :step JSR prepare 
5350 4120 JMP tst’cmd 
3360 «no’ram LDA @belt 4130 

3380 JSR prchar 4140 ztrace JSR prepare 
3390 inxtmen JSR prerìf 4160 BPL clr*ser 
3410 smemary JSR pr’ptrt 4170 

5430 LDA (ptrij,Y 4480 sgo'oni LDA portb 
3440 JSR prhexasc 4200 AND @;01010000 \ CTRL+O 
3450 JSR prspace 4210 BEG return’ 
3460 :rdmem JSR rubyte 4220 LDX @ptrt 


SA80 BC5 no’hex 4230 JSR cmpadr 
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4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
43350 
4340 
4350 
4360 
4370 
4320 
4410 
4420 
4450 
Baa0 
4450 
4450 
4470 
8490 
4500 
4520 
4530 
4540 
4550 
4570 
4500 
44600 
4610 
4620 
4630 
4640 
4660 
4670 
4680 
4700 
4710 
4720 
4730 
4750 
4760 
8770 
4770 
4800 
4810 
4830 
4840 
4850 
4860 
4880 
4890 
8300 
4910 
4920 
4950 
4940 
4960 
4970 
4980 
4990 
5090 


STA 
BNE 
LSR 
JSR 
LDA 
CHP 
BNE 
LDA 
JSR 
J8R 
JMP 


zelr’scr 


JSR 
LDA 
CMP 
BCC 
LD 
CPX 
BEG 
JSR 
stst’cad LDA 

BMI 
return’ BEÙ 
CMP 
BEQ 


zqo” on? 
zg’ ans 


JSR 
JSR 
inxtstep” _ JSR 
JsR 
BCC 
BCS 


inxtstep 


JSR 
JMP 


anxt’ trace 


JSR 
„ASC 
BEC 


:stack'err 


topcode’err JSR 
„ASC 


JBR 
„ASC 


ror’err 


JSR 
„ABC 
JSR 


spr’ at 


zreturn ISR 
J5R 
LDA 
LDXx 
STA 
STX 


CLC 
LDX 
Dy 
LDA 
STA 
TYA 


1swap 


screen+t1F 
go'an? 
cmd 
ack’ertf 
cmd 

eT” 
tst’ cmd 
@cls 
prchar 
zotf 

tst’ cmd 


search 
sreg 
@80103-dept 
stack’err 
ade 

eeor 
apcade’ err 
sin 

cad 

go’ oni 
return 
ëT 
nxt'trace 


prerl4 
printreg+3 
clrmodpag 
control” 
go’ on3 
return 


uod’ screen 
nxtstep’ 


ack'erlf 
“BTACK * 
pr’ err 


ack’erlf 
“DFCODE *,‚eot 


print 
bell, "ERROR" „eot 


print 
"AT “‚eot 
pr’ptri 


con 
ack'crif 
ptr1 
ptr1+1 
pesav 
pesav+1 


@dept-1 

stack1,X 
stack2,X 
stacki,X 


5010 
5020 
5050 
5040 
3050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5150 
5150 
5160 
5170 
5180 
5170 
5200 
5210 
5220 
5250 
5250 
5260 
5270 
5290 
5300 
5310 
53350 
5340 
5350 
5360 
5370 
5580 
5370 
5400 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5510 
5520 
5530 
5540 
5330 
5560 
5570 
5580 
5390 
5600 
5610 
5620 
5640 
5650 
5670 
5eBO 
5700 
5710 
5720 


zcontinue 


zstack' ak 


enxtpush 


:no’brkpnt 


inxtpull 


zbrkpnt 
zrealtine 


1prepare 


JMP 


STA stack2,X 
DEX 

BPL swap+3 
T5X 

TXR 

BCC P+4 

SBC @2&dept+: 
ADC @dept 
TAX 

TX8 

RTS 


JSR prepare 
LDY @#20 \ JSR 
LDX sreg 

INX 

BEU stack’ ok 
LDX tap4 

BEG continue 
JER reset” sreg 
BNE stack’ol 
JSR tst'stack 
BNE stack'err 
LDY @#4C \ JMP 
STY byti 

LDY @0 

BV5 no’ brkont 
LDA 
PHA 
LDA brkpat,Y 
STA 
INY 
CPY @3 

BNE nxtpush 

DEY 

JSR init’ 

LDX @rgaltimeX256 
LDY Érealtime/256 
STY byt3 

JSR execute” 

BVS return 

ASL A 

LDY @2 

PLA 
STA 
DEY 
BPL nxtpull 
BCC return 

JSR pull’pc 
LDA @#FE \ -2 
JSR upd'pc’ 

JSR ack'crlf 
.ASC “BREAK*, eot 
JMP pr’at 


tptr2) ‚Yv 


(ptr2)‚Y 


tptr2).y 


JSR monbrk 


(pc) 


SEC 

JSR swap+1 
LDA tap4 
BNE reti 
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5730 sldac LDA pcsav 6530 STA xreg 
5750 LDX pesavet 6540 STA yrag 
5760 sta’ptrt STA ptrt 6550 LDA &: 00110100 
5780 STX ptri+t 4540 STA preg 
5790 :ret5 BIT cad 6570 sreset'sreg LDA @8FF 
5810 RTS 6590 STA sreg 

5820 6600 RTS 

5830 :printreg JSR 1dpc 6610 

5850 JSR prheader? 6620 sasign LDX @(endtab-regtab-1) HPF 
5040 :pr"val JSR pr” values 6640 LDA cmd 

5880 :dis? JSK disass 6650 enxt'asign CHP regtab,X 
5900 JMP prerlf 6610 BEQ asign’ fnd 
5910 6680 DEX 

5920 zund’screen JSR prheader 6670 BPL nxt”asign 
5940 LDY @€BO 6700 

5950 JSR frame 6710 spr’comterr JSR print 
5960 :nxtecroll LDA screen-#20,Y 67350 „ASC bell, “COMMAND ERROR” 
5989 STA screen-#40,Y 6740 BET prerif”” 
5990 LDA screen+#A0,Y 6750 

6000 « STA screen+#80,Y 6760 zasign*fnd LDA ptr3 

6010 INY 6780 STA preg,X 
6020 BNE nxtscrall 4790 RTS 

6030 ISR pr45 6800 

4040 JSR pr” values 6810 :quit PLA 

6050 JSR pr145 6830 PLA 

4060 BEQ dis’ &840 PLA 

6070 6850 STA pagmod 
6080 zor145 LDX BS 4850 RTS 

6100 LDA Blf 4870 

&110 JSR prchar 6880 scantral JSA prerlt 
6126 DEX 6900 scontroì’  JSR scankb 
6130 BNE P-4 &920 CPY Ber 

6140 RTS 4230 BEG ret4 

6150 6940 LDX page 
b160 sprheader LDA &home 6750 BNE setpagt2 
&180 JSR prchar 6160 CPY'BA2E \_N 
6120 sprheader’ JSR print 6970 BEQ ret4-1 
6210 „ASC “PC A XxX Y sr &980 TYA \ se 
6220 „ASC * NV BDIZE A“ 4990 EEQ space’ bar 
6230 sorerlf? BCC preré"” 7000 LDA @:01000000 
6250 7010 CPY @#32 \R 
6260 spr’values SR pr’ntri 7020 BEB upd’ rode 
280 LDX @4 7030 CFY @R33 \ 5 
6290 snxtreg LDA preg,X 7040 BNE control’ 
6310 JSR prbytsp 7050 ABL A 

6320 DEK 7060 zupd'mode STA acde 
6330 BNE nxtreg 7080 ELC 

6340 LDA preg 7090 RTS 

6350 LDY &B 7100 tspace’bar JSR prerlf 
6360 enxthin ASL A 7420 teetpag LDX @t5 

6580 PHA 7140 DEX 

6390 TXA 7150 STX page 
6400 JSR prbit 7160 CLC 

6410 PLA 7170 sret4 RTS 

+420 DEY 7190 

6450 BNE nxtbìn 7200 :clraodpag LDX @0 

6440 JSR prspace 7220 STX node 
6450 LDA rreg 7230 BEQ setpag+3 
6460 JSR prbyt 7240 

6470 zprerlf’” JMP prerlt 7250 spr’ptri  LDX @ptr1 
6490 7270 JMP pradrsp 
6500 zzera LDA @0 7280 


4520 STA areg 7290 zincptr3t LDX @{ptrS+HAB) RFF 
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7310 
7320 
7340 
7560 
7370 
7380 
7390 
7400 
7410 
7430 
7440 
7460 
7470 
7490 
7500 
7510 
7520 
7530 
7550 
7560 
7570 
7580 
7590 
7600 
7610 
7830 
7640 
7650 
7670 
7480 
7700 
7710 
7720 
7730 
7740 
7750 
7760 
7780 
7790 
7810 
7820 
7840 
7850 
7860 
7870 
7880 
7890 
7900 
7910 
7920 
1930 
7940 
7950 
7960 
7970 
7980 
7990 
8000 
B010 
8020 
8030 
BO50 
B0460 


sineptr1 
zupdptri 


zret5 
vack’erlf 


zprint 


:nxtpr 


zendpr 


zcon 


zcoft 


zregtab 
zcadtab 


zadrtab 


smonend 


1disass 


JSR incadr 
LDY @1 

LDX @ptr1 

JSR incadrcap 
BEQ ret5 

DEY 

BNE updptrt+2 
ELC 

RTS 


J5R print 
„ASC ack,cr, eot 
PLA 

STA ptr3 

PLA 

STA ptr3el 

Loy 80 

INC ptr3 

BNE P+4 

INC ptr3+1 

LDA tptr3),y 
BMI endpr 

JSR prascit 
INP nxtpr 

ELC 

JKP_(ptr3) 


LDA @#BO 
.BYT skip? 
LDA eo 

CMP cursor 
BEG ret5 
STA cursar 
LDY curpos 
IMP invert 


„ASC "PSYXAR" 
„ASC "CYFHDSTGM=FZ0" 


.WRD copy-1 
„WRD verify-1 
„WRD fill-1 
„WRD hex-l 

„WRD dis-1 

«WRD step-1 
„WRD trace-1 
„HRD go-1 

«WRD neaory-1 
„NRD asign-1 
„WED printreg-1 
«WRD zefo-l 
„WRD quit-1 


\ DISASSENBLER 
\ memmen en 


JSR search 
TXA 
PHA 


go7o 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8210 
8220 
8240 
8250 
8260 
8270 
8200 
8290 
8300 
8310 
8320 
8320 
8340 
8350 
8350 
8370 
8380 
8370 
8400 
8420 
8430 
2440 
8450 
8460 
8470 
8480 
8490 
8500 
B510 
B520 
8530 
B540 
8550 
8540 
8570 
8580 
8590 
8600 
8610 
8620 
8630 
8640 
8660 
8670 
B6FO 
8700 
8710 
8730 
8740 
8750 


inxtchar 


anxtrol 


anxtbit 


zskiprel 


zorhex 


znxtbyt” 


J&R 
LDA 
TAY 
JSR 


PLA 
TAX 
LDA 
LDY 
STA 
STv 
LDY 
LDX 
LDA 
RGL 
ROL 
ROL 
DEX 
BNE 
ADC 
JSR 
DEY 
BNE 
JR 


LDX 
Loy 
STy 
LDY 
LDA 
STA 
cPy 
BNE 
TXA 
BNE 


LDA 
BPL 
DEX 
ADC 
PHA 
TXA 
ADC 
TAX 
PLA 
CLC 
ADC 
STA 
TXA 
ADC 
STA 
LDXx 
BNE 


LDX 
BED 
LDA 
JSR 
DEE 
LDA 
JSR 
DEC 
DEC 


pradrbyts 
spctab, Vv 


pryspc 


anetabr, X 
anetabl, X 
tapt 

tap? 

@: 

e5 

eo 

tapl 

tap2 

A 


nx trol 
BeF 
prchar 


nxtchar 
prspace 


adm 

eri 

tepl 

27 
adatormat, X 
tap2 

@5 

nxtasl 


skiprel 


byt2 
P+3 


ptr1 


ptrtel 


len 
byt2 


eo 
byt3 
@2 
pr hex 


len 
netasl 
ae 
prchar 
tap1 
byt1,x 
prbyt 
tap 
tapt 
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B740 
8770 
8780 
8800 
8810 
B820 
B830 
8840 
8860 
2870 
B8B0 
8890 
B700 
8920 
B930 
8340 
8950 
8960 
B970 
8970 
50600 
9020 
2030 
S040 
9050 
9080 
2080 
9090 
ILO 
9120 
9130 
9140 
9150 
9160 
9170 
9190 
9200 
9210 
9230 
2240 
2250 
9260 
2270 
2200 
9290 
930 
9320 
9330 
3540 
9350 

360 
9370 
7580 
2590 
9400 
9410 
9430 
9440 
9450 
9460 
2480 
9490 
9500 


inxtasl 


rskipchar 


spryspc 


taradrbyts 


inxtbyt 


rret6 


1search 


inxtsearch 


zont’ trey 


inxtrar 


zno’ match 


zillegal 


+faund 


DEX 
DNE 
ASL 
BCS 
LDA 
dSR 
DEC 
DEX 
DEY 
BPL 
LDY 


INY 
DEY 
BEU 
JSR 
JMF 


JER 
LDY 
INY 
LDA 
JSR 
CPY 
BNE 
RTS 


LDY 
LDA 
STA 
DEY 
BPL, 
EMP 
BEQ 
INY 
STy 
LDX 
SEC 
LDA 
SBC 
SEE 
SBC 
BNE 
STA 
LDY 
ROR 
ROR 
DEY 
BNE 
LDY 
AND 
BNE 
LDA 
AND 
BNE 
DEX 
ENE 
CFY 
BNE 
LDX 
LDY 
STY 
LDA 


nxtbyt” 
tmp2 
skipchar 
admchar,Y 
prchar 
tmp 


axtbit 
tmpl 


reté 
prspace 
pryspc+1 


pr'ptri 
BFE 


‘ptrij,y 
prbytsp 
Lea 
nxtbyt 


2z 
otrij,Y 
byti,y 


search+2 
ERD 
illegal 


ada 
@#40 


byti 
opctabi,Y 


apctab2, X 
no” match 
tmp1 
adagrp, X 
a 

tap! 


axtror 
ada 
adntab1, Y 
found 
admtab2,Y 
tant 
found 


net”try 
®20E 
netsearch 
@Rii 
Ë#oF 
ada 
lentab, Y 


9850 
z850 
9860 
5870 
3890 
9700 
9510 
9920 
9920 
940 
2850 
9260 
9970 
9990 
10000 
10010 
10020 
10040 
10950 
10060 
16070 
10080 
10090 
10100 
101106 
10130 
10150 
10140 
10170 
10180 
10260 
10210 
10230 
10240 
10260 
10270 
10280 


EMP 
BNE 
LDA 
:storlen AND 
STA 
RTS 


rspctab _ „BYT 


radmchar „ASC 
sadmformat „BYT 
.BYT 
„BYT 
-EYT 


sdisend 


‘sin JSR 
BIT 
EMI 
JsR 
tupd’pe LDA 
ELC 
ADC 
zupd’pe? CLC 
BEL 
DEC 
ADC 
STA 
BCC 


INC ° 


RTS 


:simulate LDY 
LDA 
BNE 


tbrk JSR 
toa 
DRA 
JSR 
DRA 
STA 
LDA 
LDX 
rstor’pc _ JSR 
tzero’len LDA 
STA 
RTS 


arti JR 
STA 
arts” DEC 


srts LDX 
ENX 
BEG 
CPX 


@koF 
storlen 
@1 

e#05 
len 


7,4, t 
HAY), CBN 


HPF, BFE, HFF „8F3 
KCE, BFF, HJF, HF 
BF9, ACF ,4B1, 457 
BEF „#87, 89, RFF 


init 
node 
upd’ pc 
sinulate 
len 


ëi 


pes 
pc+l 
pe 
pe 
Pea 
pe+1 


ez 
byt1 
no’brk 


push’ pe 
preg 

®: 00010000 
push 

: 00000100 
preg 
intvec 
intvec+1 
to’ptri 
are 

ten 


pull 
preg 
ten 


sreg 


end 
BFE 
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10290 BNE pull’pe 11040 PHA 
10300 JSR tst” stack 11050 LDA areg 
10310 BNE pull’pe 11060 LDX zreg 
10320 JSR reset’ sreg 11070 LDY yreg 
10330 send LDA ao 11080 PLP 

10350 STA cad 11090 JMP byti 
10360 BEA zera’len 11100 

10370 11110 :monbrk PHP 

19380 rpult’pe _ JSR pull 11130 Sec 

10400 STA pc 11140 „BYT skip2 
10410 ESR pull 11150 sback PHP 

10420 STA pc+1 11170 eLc 

10430 RTS 11180 STY yreg 
10440 11190 STX xreg 
19450 :no’brk CMP @#30 11200 STA areg 
10470 BED rti 11210 PLA 

10480 CrP e#so 11220 STA preg 
10490 BER rts 11230 TSX 

10500 CMP @84C 11240 STX sreg 
10510 BER jap 11250 LDX tapi 
10520 CMP @46C 11260 TS 

10530 BER japi 11270 ROR A 
10540 CMP 2820 11280 PLP 

10550 BNE tst’bra 11290 RIS 

10560 11300 

10570 1 jsr BVS execute 11310 sbranch LX tapt 
10590 BIT porte 11330 Txs 

10600 BVC execute 11340 PLP 

10610 LDA rreg 11350 LDY @t 
10620 BEQ jsr” 14360 LDA (pe), Y 
L0630 LDA tper ,Y 11370 JMP upd’pe” 
10640 CMP rreg 11380 

10650 BES execute 11390 tpush’pe _ TYA 

10660 :jsr" JSR push'pe 11410 ELC 

10680 11420 ADE pe 
10690 ELC 11430 PHA 

10710 » LDA tpct,y 11440 LDA peel 
10730 TAX 11450 ADC 80 
10740 Dey 11460 JSR push 
10750 LDA (pc)‚Y 11470 PLA 

10760 JSR stor’pe 11480 

10770 BCS zap’ 11490 push LDX sreg 
10780 RTS 11510 STA stack, X 
10790 11520 DEC sreg 
10800 «sap BVC sap’ 11530 RTS 

10820 LDA @#20 \ J5R 11540 

10830 STA byt1 11550 spull INC sreg 
10840 JER execute 11570 LDX sreg 
10850 BEC len 11580 LDA stack, X 
10840 ENE rts’ 11590 RTS 

to87o 11600 

10880 stst’bra CPX 802 11610 :tst’stack LDK stack+tFF 
10900 BNE execute 11630 CPX @tjapl-1)/256 
10910 :bra LDX @4 11640 BNE ret7 
10930 11650 LDX stack+4FE 
10940 sexecute’ STX byt2 11660 CPX @(apl-1) 4256 
10940 11670 zret7 RTS 

10970 texecute _ FHP 11690 

16990 Tsx 11700 zinit LDY len 
11000 STX tapl 14720 tinit’ INY 

11010 LDX sreg 11740 LDA duany, Y 
11020 Txs 11750 STA byt1,Y 


11030 LDA preg 11760 EPy RB 
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11770 BCE init’ 
11780 :dumay RTS \ BYTt 
11806 NOP \ BYT2 
11810 NOP \ BYT3 
11820 JMP back 
14850 JAP branch 
11840 
11850 rsimend 
11860 
11870 „END 
11880 
11890 RETURN 
11900 
11910 tREM DISAS5 TEST 
11920 PRINT $12$14?? terror 
11930 W=28G0;U=0;V=ptr 1 
11940 FOR I=#00 TO HOF 
11950 FOR J=fo0 TO #FO STEP #10 
11960 ?WaJtIjW?1=?WtLg; 2 2=?We2 
11976 !V=W;LINK disass;F.” 
11980 FOR Q=#81CÓ TO #BIDC STEP 4 
11990 U=lU+!G;NEXT D;NEXT J;NEXT 1 
12000 IF U=tEGB64808 PRINT"OK"*;R, 
12016 PRINT $7"FOUT"’ }RETIJKN 
SOURCE: 2960 &IEA 
OBJECT: MONBEG 7800 
MONEND 7C8A 
DISEND 7DA7 
SIMEND 7EES 
AUTEUR: J,JOBSE 


DATUM: 


DUINWEG 25 
4356 AP OOSTKAPELLE 


AUGUSTUS 1994. 


CMOS MONIEOR J.JOBDE 
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OVERZICHT MONITOR WERKRUIMTE 


#00A9, . HOOAG 
#9100, ,„HOI2E 
HOLZF. „HOISF 
0180. . HOIEF 
#O1CO. „HOIFF 


INDELING ZP EN ABS WERKRUIMTE 


zero nage ram (7) 
commando buffer (47) 
absolute ram (47) 


stack2 (64) 


stacki 


(ba) 








RIT GEORIENTEERDE SIGNALERINGEN 


made: bit0 = mode flag 
bit& = realtime flag 
bit7 = skip flag 





naos mode 
realtine exec cas node 


bit6 = break/display flag (inverse) 
= break/display flag 





































binair 


010100E1 
@1010100 
01000111 


skip one 

rel 
I+0 ptr1 
Ze1 ptri+t emd; 
2+2 ptra bit7 

P +5 ptrarl 
Z+4 ptr3 
2+5 ptr3+1 tmp2 
It6 len tmpi 
ES 
A+û cmd nevet. 
Att byt1 geen y-adres opgegeven 
Â+2 byt2 wel yradres opgegeven 
A+Z byt5 n.v.t. 
A+4 japi tmpâ 

E A+5 smpi+1 page 
A+6 jmpi+2 | adm 
A+7 jmp2 
A+B jzapati pcsav 
A+G jmp2+z pcsav+1 
A+10 greg 
Att1 sreg 
A+12 yreg 
A+13 | xreg cmd: bit6 = verify flag 
At 14 àäreg bit7 = fill flag 
A+15 { rreg 

made 





4 
5 
= 
enn 


Pointer a 
Execution 
Data area 
Register 


omm 
tun n 


CHECKSUM (C=#7800; ZekAO; A=k12F) 


CMONI2 4,2 
NMON2T 4,2 





relatief adres 
primair gebruik 
secundair gebruik 


rea 
arga 


area 








copy mode 
verify mode 
fill mode 
n‚vet, 





binair 








@1000014 
01010110 
01000110 


{ n.v.t. = niet van toepassing } 
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AFKORTINGEN 


acknowledge 

line feed 

clear screen 
carriage return 
end af text (NOP) 
pointer 

length of instruction 
program counter 
temporary storage 
camnand 

register 
mnemanic 
adressing mode 
epcode 

print 

space 

read 

next 

search 

found 

skip 

return 

test 

load 

update 

table 





SKIP INSTRUCTIES 


E 


skipt 
skip? 


#24 = BIT zp 
#2C = BIT abs 


Deze BlT-instructies worden 
“misbruikt” als single byte 
instructies welke resp. 1 af £ 
bytes van de volgende instructie 
overslaan, waarbij alleen 

de N/V/Z flags aangetast worden. 


BEELDSCHERM AFHANKELIJKE ZAKEN 


Declaraties: 
curpos,cursar,‚pagmod 
screen, invert, frame 
Routines: 


upd’ screen update sereen (trace) 


con = cursor on 

caf = cursor off 

setpag = set page length (15) 
tinstructies: 


STA screent#iF simulator indicatie 


KEYBOARD AFHANKELIJKE ZAKEN 


Declaraties: 


gortb,portc,scankb 


Routines: 

control wait for CR/SF/N/R/S 
ER ——5 Cet 

Instructies: 


LDA portb go’ oni 
AND @:01010000 CTRL+Q 


EIT porte isr 
AVC execute REPT 
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CLEVER CAL IGRAPHY 


Dit calligraphy programma print, m.b.v. een Dot-Matrix 
printer, calligraphy letters in een italiaansachtige stijl. 
Het orginele programma is gemaakt door Mike Turner voor een 
BBC-Computer. Dit staat in“ ACORN USER ", september 1986, 
Aangezien onze ATOM (bijna) alles kan, draait dit programma, 
met enige aanpassing ook. Helaas staat het programma 
barstensvol data's (Commodore 64 stijl), hiervan houden de 
ATOM's niet (vrij langzaam). Dus ík heb het geprobeerd te 
schrijven in machinetaal. Gezien dit programma ts dit aardig 
gelukt, hiermee stel ik niet dat het programma perfect is, 
maar het is misschien een aanzet tot perfectionering door 
metde atomisten. Het programma is bijna 4K lang, en gebruikt 
geen boxen dus het is op elke ATOM te draaien. Voor 
suggestie's kan je altijd bellen. 

Het programma is opgebouwd uit zeven tabellen en een 
printroutine, De eerste tabel is voor de letterpositie, de 
tweede is voor de breedte van de letter en de derde tabel is 
voor de plaats in de volgende tabellen. Deze worden gebruikt 
voor de letteropbouw, want een jetter is opgebouwd uit 4 X 8 
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bits. 


Na een run voer je een tekst in 


tong. 14 karakters) en het 


verschijnt op de printer. Zelf heb ik een klein thermisch 
printertje, de EPSON P-40, met een papierbreedte van 11, 2cm 


en 256 bits in ch“ K "” made, 


dus waarschijnlijk moeten de 
printercode's aangepast worden. 


Peter Wokke 
BOTERSTRAAT 9 
1811 HP ALKMAAR 
Tel.872-112451 


1@ REM SOURCE CALL ISRAPHY 
20 REM #2908 — #2D4F 

38 DIM LL (24) 

40 F.‚1=@ TO 14;tLI=-1jN. 

50 F.1=0 TO 1;P=#2900; P. 21 

68 !'P=#4COABOBD; P! 4=HE2232E49 
70 P!'B=K5B3A31593P! 12=NFFOD2E4S 
98 P!1&=#FFOOFFFF;P=P+185C 

98: LLO BRK; NOP 

18O:LL1 JSR #CDUI 


118 LDX@#a0; STX #80; STX HB1 
120 LDA @21;JSR LL1i1 
158:LL2 INX;LDA #0148,X; CMP@#OD 
140 DNE LL2;CPX@HDE 

158 ECS LL@ 


160 STX #B1:DEX 


\“1SLI.#2914JE. " 


- 


INPUT STING ON #140 


PAGE MODE OFF 
RETURN ? 

14 CHARACTERS 7 
ERROR 22 


„eer 
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17@:LL5 SEC;LDA #014@,X; SBCER20 

180 TAY;LDA #2ABD, Y 

198 STA #0140,X; CMPE#SB 

z2a8 BCS LL@ 

218 TAY;LDA #80; SEC; SBC #2A42,Y 
220 STA #80; DEX; BPL, LLS; CLC; ROR#S0 
258 LDA@#02; ISR #FEFB 

240 LDA@HIB;JSR Lill 

250 LDA@#41; JSR LL11 

240 LDA@#OB; JSR LL11;JSR LLIS 
27@:tL4 LDY #84;LDA #0140,Y; TAY 

250 LDA #2AEB, Y; STARB2 

278 LDA #2C14,Y;STA#85 

30 JSR tLB;CMP HAI;JBNE LL4 

318 JSR LL12 

328:LLS5 LDY #84;LDA #2148,Y; TAY 

330 LDA #2B55,Y; STA#B2 

548 LDA #2CSF ,Y; STA#BS 

358 JSR LLB;CMP #81; BNE LES 
540 JSR LLi2 

37G:LL& LDY #64;LDA #0148,Y; TAY 

388 LDA #2B7E,Y;STA#82 

390 LDA #2CAA,Y;STA#BS 

428 JSR LLS;ECMP #91;BNE LL6 

418 JSR LL12 

42:LL7 LDY #B4;LDA #U140,Y; TAY 

458 LDA #2BC9,Y;STA#B2 

40 LDA #2CF5, YY; STA#8E 

458 JSR LLB;EMP #81;BNE LLJ7 

440 LDA@&OD; ISR Liil 

478 LDAGE#OSI ISR HFEFB 

450 LDAGHD6; JSR HFEFB; RTS 
4FU:LLB LDA #2642,Y; STA HBS; LDYERFF 
SOB:LLF INY;LDA (#82) ,Y; CMPEHOS 

518 BEG LL10;JSR LUI 

520 CPY #85; BCC LL? 

S5O:it 1AINY;LDAESBB; JSR LLL 

540 CPY #85;BNE Li 10; INCHS4 
552 LDA #84;RTS 

S&B: LLiLPHA;ROL A;LDA@#BE; ROL A 

570 STA#BUBS; PLA; ORAC#BO; JSRHFEFB 
sa LDA@#A6; STA #BABT; RTS 
S0:LLI2LDAEHAD; JSR LLT 
&AB:LLIELDYERDA; STY #84; SEC; LDAGHFF 
&10 SBC #80; TAX 

628 LDA@HIB; JSR tL11 

658 LDA@#4B; JSR LL1i 

648 TXA;JSR LL11 

650 LDA@E#BB5 ISR LLII;LDX #80 
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&&B:LLiALDAGHBD; JSR Liil;DEX 


678 


BNE LL14;RTS 


GEBIEN. :P. $65E. 


„eere erse 


rd „er 


„ee 


\ 


„re 


POSISION 

UINKNOWN CHARACTER 
ERROR 28 

WIDTH 

CENTER STRING 
PRINTER ON 

EST 

CHA" 

1/9 INCH LINE SPACE 
FIRST TABLE 

LOW BIT 

HIGH BIT 


SECOND TABLE 
LOW BIT 
HIGH BIT 


THIRTH TABLE 
LOW BIT 
HIGH BIT 


FOURTH TABLE 
LOW BIT 

HIGH BIT 

PRINTER OFF 

WIDTH 

END OF TABLE 

FILL WIDTH WITH SPACE'S 
SEND PRINTERBIT 
CARRIAGE RETURN 

SET SPACE 

ESC 

CHYK* 

TOTAL WIDTH 


PRINT SPACE 
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DE ACC. 
WENST U 
PRETTIGE 
FEEST DAGEN 


& 
EEN GELUKKIG 
NIEUWJAAR 
ATOM MIEUWS 


computer special 
ABCDEF GHIJ 
KLMNOPARST 
UVWXUZ 
abcdefgh jklm 
nopgrstuvwxyz 
15545678 
LO 


PPPPPPPFPEE PEET T EEEN 
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Dit programma is geheel geschreven in P-Charm basic en is 
z.g. DISK-georienteerd. Het geeft de gebruiker de 
mogelijkheid om zijn voorraad te beheren. Voor Atomisten 
zonder disk-operating systeem is dit programma NIET te 
gebruiken, omdat alle handelingen direct op de diskette 
worden uitgevoerd. Alleen de sort gebruikt intern geheugen. 


GEBRUIK 


1 — Opbouwen masterbestand. 


Deze optie maakt het mogelijk om of, een nieuw bestand 
op te bouwen danwel nieuwe records toe te voegen aan een 
bestaand bestand. Het programma "kijkt" of er een file 
met de naam MASTER op de diskette staat. Zo niet, dan 
wordt dit gemeld en er wordt gevraagd of er een nieuw 
bestand moet worden gealloceerd. Zoja, dan wordt er een 
file van 1280 bytes (25 records) gealloceerd met de naam 
“MASTER". Hierna vraagt het programma achtereenvolgens 
om: 


De naam van het artikel. 

Het aantal verkocht van dit artikel. 

De inkoopprijs. 

De verkoopprijs. 

Het aantal artikelen in voorraad. 

Het aantal artikelen in bestelling bij de Crubwinkel. 
De datum. 


De omvang van de file (standaard 1280 bytes) kan 
uiteraard vergroot worden. De enige beperking is het 
beschikbare interne geheugen omdat er intern wordt 
gesorteerd. Dit gebeurt vanaf #8200, dus een bestand van 
6k is geen probleem.( 120 records). 


2 — Printen masterbestand. 


Hiermee wordt het bestand geprint op het scherm of op de 
printer. 

Records met omschrijving worden geprint met 
omschrijving "VERVALLEN". ( zie Optie 3 en 4} 


3 — Muteren masterbestand. 


Met deze optie kunt U alle rubrieken in een record 
veranderen. 

Ook wordt hier aangegeven of een record bij het sorteren 
moet worden verwijderd. Dit gebeurd tijdens het 
veranderen van de omschrijving van het artike}, door 
deze te veranderen in een *** (geinverteerde UP-arrow). 
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Tijdens het muteren van de rubrieken worden in bepaalde 
gevallen ook andere velden gemuteerd deze zijn: 


a — Als het aantal verkocht wordt gemuteerd wordt ook 
het aantal in voorraad bijgewerkt. 


b — Als de voorraad wordt gemuteerd en het aantal 
opgegeven is positief dan wordt het aantal bestelde 
artikelen verminderd met het aantal ontvangen 
artikelen. 


4 =— Sorteren masterbestand. 


Er wordt eerst een Array gedimensioneerd waarna het 
bestand wordt ingelezen. Nu wordt het gesorteerd en 
daarna teruggeschreven naar de diskette. De records met 
als omschrijving “*“ worden niet teruggeschreven en zijn 
dus verwijderd uit het bestand.De sort is niet zo snel 
(bubble sort), maar omdat een voorraad-bestand redelijk 
statisch is, wat artikelnamen betreft, komt het niet zo 
vaak voor dat men moet sorteren. Dit is alleen nodig 
nadat er artikelen zijn vervallen of nieuwe artikelen 
zijn toegevoegd, 


5 — Restoren masterbestand. 


Deze optie schrijft het backupbestand (masteri) terug 
naar het masterbestand. 


6 — Backup masterbestand. 


Deze optie maakt een backup van het masterbestand. De 
backupfile heet MASTER. 


Hopelijk is deze beschrijving voldoende om met het 
programma te kunnen werken. Dus veel succes ermee !!! 


Philip van mourik. 


‘Me Tarzan, you 


database’ 
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Dit programma tekent met behulp van de ACORN plaatjes op het 
scherm. Deze plaatjes kunnen b.v. schema's zijn. Hoe maken we 
dat? 

Eerst moet er een schakelsoft aanwezig zijn. Laadt deze dus 
eerst in. Nu wordt JOYTEK geladen, Nadat deze wordt gerund, zal 
worden gevraagd "nieuw of bestaand n/b". Toets nu n in, omdat 
we de eerste keer geen bestaande tekening hebben. Na <return> 
zal op het scherm een "tekenvel!" met in de kaders allerlei 
tekens en in het midden een grijze transistor verschijnen. 
Gebruiken we nu de joystick dan verschuift dit symbool. Met de 
vuurknop "plotten" we het symbool en wordt deze wit. Men hoort 
een piepje en het teken staat. Het teken verdwijnt weer, als de 
grijze en de witte presies opelkaar staan en de vuurknap wordt 
gedrukt. Een schema met alleen transistoren is ook niet alles, 
Toets nu een letter in die boven een ander symbooltje staat. 
Bv. de td, Nu wordt de transistor vervangen door een diode. 
Deze kan men netzo plotten als de transistor, Andere letter, 
ander symbool. Nu hebben we ook speciale letters: 

8 = draai het symbool om 

s = stop het programma 

x = voer tekst in: met de cursortoetsen 
bepaalt men de juiste plaats van de text. dan typt men de text 
in en sluit dit af met <return>. 

Dan hebben we nog de letter y voor het Iyntrekken. Drukt men 
deze in, dan zien we een pijltje. Verplaats dit pijltje naar de 
plaats vanwaar een lijn getrokken moet worden. Druk op de 
vuurknop. Verplaats nu het pijltje naar de plaats waar de lijn 
noet eindigen. Druk op de vuurknop en de lijn staât. 

Zo ook de letter z, voor een cirkel. Zet eerst het pijltje op 
het middelpunt en druk de vuurknop. Dan verplaats je het 
pijltje naar de buitenkant. Druk op de vuurknep en de cirkel 
staat. 

Als laatste hebben we nog de letter v voor een vierkant of 
rechthoek. Dit werkt netzo als de cirkel. Eerst de linker 
onderhoek aangeven en dan de rechter bovenhoek. Kiest men hier 
de verkeerde volgorde, dan werdt de rechthoek gespiegeld. 


Heeft men met lijnen, cirkels en rechtoeken gesloten vlakken 
gemaakt, dan kan men deze inkleuren. Flaats heat symbool (b.v. 
het pijltje) ergens in zo’n vlak. Toets het cijfer in, dat bij 
het gewenste patroon staat en het vlak wordt er mee gevuld, 

Na het indrukken van de letter s komt de vraag op het scherm 
“saven j/n'. Drukt men n, dan eindigt het programma. Drukt men 
ós dan wordt de tekening op de cassette of floppy gezet en 
daarna wordt het programma beeindigd. Deze gesavede tekening 
kan later weer (bij de vraag “niew of bestaand") weer worden 
geladen. 


Voor mensen zonder joystick: ZIE ONDERAAN DE LISTING!!! ! 


Veel Succes. 
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1PROGRAM TEK 
2REM NODIG: SCHAKELKAART MET P-CHARM,JOSBDX EN GAGSROM. 
3REM SCHAKELSOFT EN JOYSTICK VOLGENS CLUBAANSLUIT ING. 
1ODIMT (32) „U (32) $P. #12 
15$U="&KETEKENPROGRAMMAAKKBY G.T. He EK"; P. $U 
16IN. "NIEUW OF BESTAAND N/B"$T; IFST="N"6. 18 
17C0S1 ; LOAD" TEKBEST "8200 
1BGRMOD; Xe 103 Y2100} 220; ?4E1=OJP, $U 
KOP npur ng eem wen or nge nge ozon hger oger ogerngerage nge 
20P,"Y VZAXSWIEDLOARCHNP - 00 "$30810 
Z1MOVE10, 22} DRAW10, 1793 MOVEZO, 223 DRAW20, 179 
22FORX=35TO1G8STEP1 23 MOVEO, Xj DRAW20, X3 NEXTX 
Z3MOVEO, 179} DRAW3OO, 1793 MOVEO, 11} DRAW300, 11 
24MOVEO, 223 DRAW300 , 224 NOSNOW; BASE#40 
2SCR. /Ps ONAANSSHAANSSHAANSSHAAASS 
26CR. /P11 WCT, OCC, ORCC, ORCC, O 
27CR./P12 HEEWBBIEEHBBHEENBBHEENBE 
2ECR./P14 #ISHSSISSRTTRISASENS SST 
29CR./P1S WSSRAAMSSHL1NSSHAANSSHLI 
3OCR./P16 #ASHBER 1422#4ANBERL 1422 
ZICR./P27 WFF, ORFF, ORFF, ORFF, O 
S2CR./P1B 82241 1MBOMAANZ2HI 1 HBEHAA 
33CR./P19 HLHINNIIMLENLERIINI ING 
34CR. /P1 1O#BB, 0#22, OBB, O#22, 0 
SSCR./PI11 1,141, 1,1, 1, 18FF 
3&CR./P: 12 HFERFENFE, OMEFWEFHEF , O 
49CR. TOR, #11, #13, #14, FO, #14, H12,N11,0,0 
SOCR, WEE, 0,0, 87E, #FF , #7E, 0, 0,0, 0,0, 0,0, 0 
SICR, WES, #10, #55, #38, #38, #38, #38, #5B, #10 
S2CR. OTR, #11,#12, RIC, HFB, #14, 12, #11, 0, O 
SSCR.PYL,0,0,0,0, ONBONBONEO,0,0,0,0,0,0, 
BOOR. CON, #24, #24, #24, HET, #24, RZA, #24, 0,0 
&ICR. AND, #58, #E4, #22, #23, #22, HE4, #38, 0,0 
&2CR. OR, #70, HCC, #42, 821, #42, HCC, #70, 0,0, 
&SCR. INV, 0,0, #40, #30,#40,0,9,0,0,0,0,0,0 
BACR.LYN, 0, 0,0, #F7#15,8,0,0,0, 0, 0N77454H 
6SCR. DID, #22, #32, #3A, IFF, #3A, #32, #22, 0,0 
G&CR, ELC, #2E, #2A, #ZA, HEB, #ZA, #ZA, NZE, O0, 0, O 
67 IM. : TOR, 224, 94 IM. CON, 208, 73 IM. 1 WEE, 192,9 
&8IM, +AND. 176, 9; IM. :OR, 160,93 IM. :LYN, 140,93 IM. : OTR, 240,9 
69 IM. :DIO, 128,94 IM. 1ELG, 112,93 IM. z INV, 99,9} IM. + WES, 81,9 
71FORX=OTO12; PA. 12, ((XK11) +26) „X3 NEXTXj PA. 12, 1703 X=110 
75bSET®, X, Y; UNSET9 
75ATK. (1,2,4,5,6,7,8,9,0) (201, 502, 304, 205, 206, 207, 308, 309, 510 
7EATK. (£, 2) (311,312,315, 3514) 
BOATK. (N,R‚C‚W, A, 0, I,L) (160, 170, 180, 190, 200, 210, 220, 230) 
BSATK. (D,E,P‚Y,Z,V, 2,8, X) (240,250, 260, 270, 280, 290, 350, 400, 700) 
B8J. X,Y,G:IFG=O Gb 
LOOIF Za14G.B00 
lO1IF Z=246.B10 
LO2IF Z=5}G.820 
1OZIF Z=41G.820 





Dons onse 
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1O4IF Z=5;4G.840 
LOSIF Z=6;G. 850 
150SET9, X, Yr SOUNDSS, 1004 
160G0S. a; AS. TOR, 9; Z=0 Biot sb 
170608. a; AS. WEE, %: 
180G0S. a; AS. CON, 9 
190GOS, a; AS. WES, 9 
200605, a; AS, AND, > 
210505, 2348. OR, 5; z 
20605, a; AS. INV, 9 
250808. at AB. LVNL 9 
240605. a; AS. DIO, 9; 
250GOS, a; AS, ELC, 9 
260605. a; AS. ATR, 94 
270605, a: AS. PYL, 9; Ze 
280608. at A5. FYL, 93 Ze 
290G0S,. a; AS. PYL‚ 9: Z=55 
ZO1PAINT XY, ie 
SO2PAINT x: 
SO4PAINT X, 
SOSPAINT X, 
ZO6PAINT X, 
3O07PAINT X, 
SOBPAINT X, 
X; 
Xs 
Xs 
Xs 
X 
















iden DO 
vooeovve Goo 


aanannan: 


3OSPAINT 
ZLOPAINT 
S11FAINT 
SI2PAINT 
S1ISPAINT 
314PAINT 
319aDE. TOR: DE. WEE; DE. CON: DE. WES; DE. AND: DE. OR 
BEODE. INV; DE. LYN$ DE. DIO; DE, ELC; DE. ATR; DE. PYL;R. 
Z50OTURN9s SOUND? 5, 50: FAUSELO; Gb 

4OOTXMOD; P. $Us COS1 

41GIN. "SAVEN J/N" ST; IFST= 
A9OP. "EINDE"; E. 

7OOPLAY D’ Bs PHEL=HFF; IN, ST; F. 6508107 G. 00 
BOOPLOTA4, X, Y4SDUND 55, 100; PAUSELO: 
BLOPLOT&, X, Y: SDUND 55, 100; FAUSELO: 
B2OR=X; SOUND SS, 100; PAUSELO; Ze4;3G.b 


KKK ker 


mee DONDURIE 





ke 
< 





XSAVE"TEKBEST"B200 9500 








850 ES (X-R) WEARS (Y-S); CU, 2,0, Rs 5, T, Wi SOUND 55, 1003 FAUSELG 
B4602=5;3G.b 

1OOOREM HEB JE GEEN JOYSTICK: GEEN NOOD! 

1OOLREM REGEL 88 WESHALEN 

LOOZREM 9 YeY+14 Gb 

LOOSREM 92 
1OO4REM 95 
1OOSREM 94 
LOO&GREM 87 ATK. 6, T. E‚H,F) (100,91,92,95, 94) 
1OO7ZREM EN NU DOEN DE TOETSEN E.T: B: H EN F HET. 
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Dit programma, dat is ontstaan uit de kreet: 

“PROGRAMMEREN? EEN KIND KAN DE WAS DOEN! !!!" 

is meer een grap, dan functioneel. 

Het is een plaatje van een wasmachine met atributen zoals 
zeepbakjes, kraan, stopkontakt enz. Deze atributen staan cok 
links in een rij op het scherm. Hierbij staat een pijl, die men 
met de joystick naar boven en beneden kan verplaatsen. Drukt 
men op de vuurknop, dan wordt het symbool naast de pijl 
overgenomen en op een rij rechts op het scherm neergezet. 
Tevens wordt hierdoor een commando bij de wasmachine uitgevoerd 
(b.v. stekker in de wandkontaktdoos), Als men de juiste 
commando's uit laat voeren, wordt de trui gewassen. Doe je het 
niet goed, dan „seven 

Vergeet Dev. de temperatuur in te stellen, dan is de trui 
gekrompen als je hem uit de wasmachine haalt. Als je met dit 
programma goed geoefend hebt mag je misschien “moeder de vrouw" 
een helpen, 


Opmerking: Heeft men geen josbox dan: 
regel 50 GRMOD wordt CLEAR 4 
regel 100 weghalen 
regel 690 TXMOD wordt CLEAR 0 


Pele. 
IREM NODIG gagsrom EN josboxJOYSTICK VOLGENS CLUBAANSLUITING 
1OP,$12"*KEKWASMACHINE BV G.T. kkn 
2OP. "ONDER HET MOM VAN"? """PROGRAMEREN? EEN KIND KAN DE"? 
30P," WAS DOEN! !"""r DIT PROGRAMMA. “'"-PIJL BEWEGEN MET JOYSTIC'" 









AOP. "7 =MET DE VUURKNOP COMMANDO GEVEN, 

SOP,"-MET RETURN VERDER, **' 

&ODIMG (1) 

7OIN.$G; IF$O=" "6,90 

BOG, 70 

JOPRB4O1=03 THE1=0O; GRMOD; B=1653 A=0j C= =O Y=Or RSL 
100P,"" _ KEKWASMACHINESKSBY G, T.H, kx% " Mi 





110?#B402=0 

120 BASE((TOP/256) +1) 

130CR. KRAAN, #5E8IFBIFHEF, 1, 1,7,7, L2AFCBFCHFC, 12, ONCORCO 
140CR.KRN, 16, 16,31,0,0,0,4,4,0,0#FC, 0,0, OP4ON40 

15OCR. STOF, HBONBANBCHFFHIC, 4,0, O, 18SFHEFRBERSFAEF, 1,0 
160CR, STK, 0, 4, #IF, OMSF „4,0, 0, ORZORCONAORCON4O, 0, O 

170CR. KLOK, 6,8, 16, 17,17,9,5, 28CONZO, 16NDO, 16#20R4OHBO 
1BOCR, SCHAK, 7HESHESHEORESHE7HES, 7W4BHAERSC, 0855H75H57075 
190CR, SCHK, O, O#4OHAORAONAO, 0, 0,0,0,0,0,0,0,0,0 

2OOCR. ZEEP, M3EM7CH7CHTCHTCHFENFESFE , #3897CH7CH7CH7CHFENFENFE 
Z1OCR. ZP, O, 16#TERTENTENZERIC, 0, O, 16HTENZENZERZBNIC, O 
Z20CR./P:5 HAA, #88, HAA, #HB, HAA, HOE, HAA, #80 

ZEOCR, KLE, BIFBIFBIFMEFAFFNFCHFCHFCHEORFERFBREEREFBIEMIENZF 
Z4OCR.REN, HIFSIFBIEMIFHIFKIENIFKIFKFOHFONFORFORFBRFONFONFG 
25OCR. TEMP, 14, 14,14,4,4,4,4,4,0,0, 14,8, BREEWAONEO 

2AOCN /P:15 HAA, HAA, HAA, HAA, HAA, HAA, HAA, HAA 

27OCR. /F128 #80, HEO, HEL, HFT, NCF, RB7, 7, 1 

ZBOCR, PIJL, HLEKZORLORFFAFFRGORZOHLE, 0, 0, OREFREF 0,0, 0 
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290B0. 5, 54BO. 10,10; BO. 79, 503 FORT= s 5.55 = 
SOoMDVEHO, 1:50; DRAW1 75; 1303 MOVEIE, 130; DRANIG TAG!” 1 178,6, IJN, 
S1OMOVE179, 132; DROW1 75, 100; DRAW176, 100 

320MOVE142, 152; DRAW142, 142; MOVE144, 152; DRAW144, 142 
SEOMOVELO, 103 DRAW&O, 1683 MOVE195, 103 DRAM1 95, 168 

340MOVE4O, 55; DRAW195, 553 MOVE10, 14685 DRAW245, 168 

SSOSET: ZEEP, 85, 149; SET: STOP, 179, 140; SET: KRAAN, 140, 160 
360SET: SCHAK, 81, 139 

370PA. 100, 135, 15 

380PA.85, 127;PA. 160,96 

390PA.7, 38,51 PA. 247, 155,5 

400PA. 65, 50, 28; PA. 190,50, 28 

410SET: KRAAN, 15, 165} SET: PIJL, 45, 1651 SET: STOP, 15, 141 
420SET:KLOK, 15, 1173 SET: SCHAK, 15,95} SET: ZEEP, 15, 69 

4S0SET: KLE, 15,49; SET: REN, 15, 413 SET: TEMP, 15, 20 

440NDSNOW; X=165 

450J. A, B,G 

4601FC<>0 6.500 

S7O1FB<20 B=20 

ABOIFB>165 B=165 

&9OCARRY: PIJL, 45, B; G. 450 

SO0OIFB< 386. t 

S101FBX40G. k 

S201FB<826. z 

5EO1FBX 1045. s 

5401FB<1266.c 

55O1FBX 1485.» 

560SET: KRAAN, 210, Xs SET: KAN, 140, 1603 Z=Z41j IFZ=5 ZeZ-2;G.0 
5706. e 

SBOtSET: TEMP, 210, X 
S9OkIFR=2 Gr 
bOORER+L 

610 SET:KLE, 210, Xj X=X-B4 SET: REN, 210, X3 SET: KLE, 121,85;G. 0 
620F SET: KLE, 210, XJ SETI KLE, 121, 8510. @ 

6302SET: ZEEF, 210, X; SET: ZP, 85, 149; G.e 

GAOSBET: SCHAK, 210, X} SET: SCHK, 81, 139} GOS. ar Ge 
&50CSET: KLOK, 210, X1 
GEOWSET: STOP, 210, XI SET: STK, 179, 1403 ZeZeij IFZ=E Z=Z-2 
670ekek-12} IF XX10 G. 690 

&BOPAU. 20; 5. 450 

69OPRBAO L=k0; TXMOD; 6 90 

700a1FZ<>2 SET: SCHK, 81, 139; R. 
710PLOT4, 121,79; PLOTZ, 14, 0} PRUSE4O 
720PLOT4, 117,81; PLOT2, 22, 0; PAUSE4O 

750PLOT4; 115,85} PLOT2, 26,0; PAUSE4O 
740PLOT4, 113,85: PLOT2, 20, 0; PAUSE40 

750PLOT4, 112,87; PLOT2, 22, 03 FAUSE4O 

760FORY=0TDA 

770PLOT4, 111,89; PLOT1, 24, O4 PAUSELO3FLOT2, -34, 0; PAUSE1G 
78ONEXTY; PALISE4O 

790PLOT4, 112,874FLOT2, 52, 05 FAUSE4O 
B00PLOT4, 115, 851PLOT2, 30, 0} PAUSE40 
B10PLDT4, 115,83; PLOT2, 26, 0; PAUSE40 
82OPLOT4, 117,81; PLGT2, 22, 0; PAUSE40 
BSOPLOT4, 121,79: PLOT2, 14, 0} PAUSE4G 
BADSET: SCHK, 81, 159; R. 

B50E 





R-i3 Ge 
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Omdat het toch wel makkelijk is, als je zelf E-proms kunt 
programeren (of copieren), heb ik een E-pragrameerapparaat je 
voor de Acorn Atom ontwikkeld. Zoals een goed hobbyist betaamd 
stelde ik de eis dat hij goedkoop moest zijn. Dit is mij dacht 
ik wel gelukt. 


De hardware. 


Het eenvoudigst zou het zijn om de 1/0-poort van de ATOM direct 
te koppelen aan de adres- data- en stuurlijnen van de te 
programeren E-prom, De 1/0-poort heeft echter maar 16 
paraìllelaansluitingen en de E-proms hebben er 22 (ex. voeding). 
Maar geen nood, een teller 4040 gebruikt als adresmedia bracht 
de oplossing. Verder bestaat de schakeling uit een 


stuurtransistor die de 25v schakelt en nog enige 
buffer-inverters, twee ledjes, waarvan een aangeeft of de 
voedingsspanning aanwezig is en de andere of de 


programeerspanning op de E-prom staat. Rest nog de schakelaar, 
waarmee men de keuze kan maken tussen een 2716 of een 2752 
E-prom. Het bijbehorende progamma checkt dit af. Met behulp van 
een tussenvoetje (zie aansluitgegevens) kan je ook de 25352 
programeren. 


De software, 


Met het bijbehorende progamma kun je verschillende dingen doen. 
De keuze wordt met behulp van een “menu” bepaald. Voordat dit 
menu verschijnt dient eerst het begin= en eindadres (met # voor 
hexadecimale getallen) van het geheugen dat bewerkt moet 
worden. 
De mogelijkheden zijn:-inladen vanuit E-prom 

=handmatig ingeven 

=programeren van de E-proms 

-kantrolteren (vergelijken van het 

geheugenen E-proms. 

—hex-listen 

„eindigen. 
Hierna wordt gevraagd of men met een 2716 of een 2722 E-pram 
wilt werken. 
N.B. Het progamma heeft de P-charm nodig. 


Het schema en het progamma staan op de volgende bladzijden. 


PAG.82 ATOM NIEUWS EPROMMER  G.TER HORST 





En nu de bouw, 


Ten eerste hebben we een enkelzijdig printplaatje nodig. De 
layout staat op ware grootte afgedrukt op de pagina hiernaast. 
Dit is dus voor "de hardware-doe-het-zelver" geen probleem 
meer . 


De onderdelen die we nodig hebben zijnt 

Rl- 590 Ohm Dl= zener 25 V 1 schakelaar 4x wissel 

R2- 590 Ohm D2= AN4001 1 IC=-voet 24 pins 

tevt. progameer voet) 

beugels volgens fig. 
&A-polige connector female 
schroefjes + 4 moertjes ME 
printplaatje 
sotdeerpennetjes (t.b.v. 25V) 


RE- 10 kOhm DE- led rood 
Râ=- 2,2 kOhm D4= led groen 
R5- 10 kOhm Cl- 0,1 uF 
R6- 4,7 kOhm Ti= BC 307 
R7- 10 kOhm IG1 SN7406 
R8- 470 Ohm IC2 4040R 


Me De 


= Als de print geetst en geboord is brengen we eerst de elf 
draadoruggetjes aan, en soldeer deze vast. (zie pijltjes) 

— Dan plaatsen we de E-promvoet, de schakelaar em de 
soìldeerpennetjes. Soldeer deze vast. 

— Nu solderen we resp. de weerstanden, condensator, dioden (let 
op de richting), led’s en de transistor er op. 

= Suldeer daarna de IC=’s erop en klaar is de print. 


Hoe sluiten we hem aan op de ATOM, zodat je goed bij de 
E-promvoet en de schakelaar kunt komen? 

Met twee metalen beugeltjes van Bx50 mm, omgezet op 10 mn, (zie 
fig.) monteren we een b4-polige connector aan het printje. De 
voeding en de massa van het printje sluiten we met draadjes aan 
op resp. punt í en 32 van de B-rij van de connector. De overige 
gebruikte punten, van het printje, verbinden we recht (5 op 3, 
4 op 4 enz.) met de A-rij van de connector, Als men nu de 
connector achter in de ATOM prikt en 25 V aansluit (let op + en 
=) is de EPROMMER kiaar voor gebruik. 


fig. 
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SREM P-CHARM NODIG VOOR HEXLISTEN. 

10P,812, "&PROGRAMEREN E-PROMS BY G.T.H,kK'"’$15 
15?#B8OS=#F Di PRBBOi=t40 

ZOIN. "BEGINADRES ",‚B 

SOIN. "EINDADRES "‚E 

gOxS=BjP. " 






SOOP, "INLEZEN = <i>, 
SSP. "HAND INVOER= <MD", 
&OP, "PROGRAMEREN = <P>", 
7OP, "KONTROLEREN e= Kh, 
75P, "HEX-LIST= LS EME 
8OP, "NIEUWE ADRESSEN={N>", * 
JOP. "EINDIGEN = ZE", 
100IN.,A; IF A=E F.$12,"EINDE";E, 
1021F, 5.h 


1O3IFA=X P.$&14;3HEX B 

105IFA=N G, 10 

120P, "DE SCHAKELAAR STAAT OP * 
15OIFP#BBOIEHO2=OP, "2732" $7; ZelzG. 150 
140P, "2716" ,$7,*;} Z=0 

iSOIN, "STAAT DEZE GOED J/N"C 
1601FCeN P‚,$11,$113G. 120 
170IFâz=P GOS.p 

1801FA=Il ORAr=k GOS, i 
190rF,G=tTOttiP.$1lEN. 036. x 
20Op?#B8OZEFE 

220 $BEOL #50 

2:507#B800=?5 

24080 1EN14 
250WAIT:WAIT;WAIT 

2607#BBO 12430 

2805=5+1; IFS<=E4G. 230 

285 P#BBO1=#48 

29aP,$7:R, 

3001 P#BBO2ZEHOO 

5104B801=#48 
S2OPREBO1=#OB: IF Ze1THENP#EBO1=#0C 
330IFA=k GOS, k 

S40IFA=I R=?#BBO0 

3457SeR 

35OPHBBOL= #28 

36OS=S+1; IFSX=E:G. 520 
370P,$7iR. 

4OOK IF #BBOO=TS;G. 420 

A1OF. "FOUT OF ADRES "‚&5,',$7 


420R. 
83OhE,S12" VERLATEN MET LETTER >F"; Bel 
440P KB" v 


4SOFOR G=0 TO Zr INK.C 

460C=C-48; IF ChtO C2C-7;IF C>15 82856. 10 
47O0P,KCiD=ECk16 

48OINK.C;C=C-48; IF C>10 C=C-7 

49OP, Cy PE=(C+D); B=B+ig FP," 0“ 

SOONEXT G 

SIOP," KB" "36.450 

S20E. 
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SCHAKELKAART 8x1C 24 


De werking: 


De werking van deze schakelkaart berust op, het bij velen reeds bekende 
principe van, het sturen van de chip select (&5) aansluiting van de 
E-prom's, Omdat het adresgebied (van IC 24 van #AGgd tot #BÁAE) voor 
alle te schakelen IC-a het zelfde zijn mag er slechts één E-prom aan- 
geschakeld zijn. Dit houdt in dat van één IC de chip select lijn laag 
mag worden en de andere hoog moeten blijven. Hoe is dit te realiseren? 


Cs zen 


eeser 





























Boe A8 oare 


te ze ree 

















Ik ben er achter gekomen dat de adresselectie van IC 49 slechts voor de 
helft wordt benut voor de VIA (BÉZZ t/m #B3FF) en de PPI (#Bafg t/m 
#BBFF), Hier heb ik dankbaar gebruik van gemaakt, Het adresselect sig- 
naal (28) van poot 5 van IC 49 gebruik ík om Flip-Flop's (soort geheu- 
gen) te enable-en. Het IC 74173 is hiervoor een prima IC. 


kt \ Te Tan 74473 
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Van de vier D= Flip-Flop's die hierin zitten worden er drie gebruikt om de 
laagste adressen in te bewaren, De adreslijnen Af, Al, en A2 gebruik ik 
als schakelmedia, De ingangen van de D-Flip-Flop's worden slecht& geopend 
als er wordt “geroerd” in het adresbereik #B4Jf t/m BJFF, De aangeboden 
data wordt ingeklokt door het Read signaal (r/W) of als Zemand dat wil, 
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door het Write signaal (transistor toepassen voor invertering). Omdat 
ik wil dat er een bepaalde E-prom (de P-charm) voorgeschakeld staat na 
inschakeling of een Break wordt de ATOM-reget aangesloten op de reset 
van de 74173 (mr). Als men nu intoetst ?/B4fT=f worden de Flip-Flop's 
geset. Met drie Flip-Flop's hebben we acht mogelijkheden. Daartoe dien- 
en de uitgangen van de Flip-Flop's gedecodeerd te worden, 

Hiervoor is het IC 7442 ontworpen. 


LOGIC DIAGRAM 7442 FUNCTION TABLE 
Az Ar 
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Als men hiervan drie van de vier ingangen gebruikt en de vierde ingang 
laag houdt heeft men op de uitgangen f t/m 7 één uitgang laag. Deze 
sluiten we aan op de c van de E-prom's. Om de E-prons alleen te laten 
werken in het adresgebied van # AfÚg tot BĲHH wordt de CB-lijn van 

IC 24 aangesloten op de vierde ingang, waardoor er slechte één van de 
uitgangen f t/m 7 laag wordt ale de vierde ingang laag is. 
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Bouwbeschríjving: 


Onderdelen: 1- SN7442 
te SN74173 
1- weerstand 10 k-Ohm 
J- 24 pins IC«voetjes 
1- printplaat (layout ís beschikbaar) 
en enige dosis vrije tijd. 


Leg eerst de 7 draadbruggetjes (zie pijltjes). 
Monteer dan de weerstand en vergeet de transistor. 
Soldeer de IC-voeten f t/n 7 

Soldeer de SN 74173 en de SN 7442. 
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Soldeer stugge draadjes, die in de componentenzijde van het extra 

Boldeervoetje passen in het IC=voetje (met ronde pootjes) 
Poot 20 vrijhouden, Knip de draadjes op een lengte van 
1 cm. af. Soldeer deze onder IC 24/0 van de kaart. Let op de 
juiste telling. 

Sluit op poot 20 van de extra IC=voet de Cö-draad aan. 

Soldeer draadjes aan äë, ree, r/w(op gat van T. bij Re) en aan de 
onderzijde EB. 

Sluit de RES draad aan op de resetlijn van de ATOM (poot 35 van IC 25) 

Sìuit de as draad aan op poot 5 van IC 49 (uitbuigen) 

Sluit de r/w draad aan op de r/W lijn van de ATOM 

Prik de E-proms in een willekeurige plaats, maar zor er voor 


dat de P=charm op positie f zit. 


Proberen maar. 
Na inschakelen of na een break staat IC f voor. 
Omschakelen: 2 B4fl = f IC 1 
2 Bf = PIC 2 
enze 
2 BAÛT =P IC 7 
2f Bap «PIG Pp 


Automatisch omschakelen gaat ook, Hiervoor is echter een 
programma nodig. Dit programma dient geladen en gerund te 
worden, voordat men andere programma's die automatisch 
geschakeld moeten worden,kan runnen. 

De listing van het schakelprogramma is hierbij afgeärukt. 
>eL. 


BREM SCHAKELPROGRAMMA VOOR SCHAKELKAART BIC 24 
1OP.S12"ACGRN ATOM SWITCH"? 








SOF. S2IsDIM BB(4)4F. 1=1T02; F=#PED8 
40L 

50: BE1sLDXEOs PLA; FLA; STAO 

60 CMFB94 ; BNEBBE 

7o LDX#5: CPX#803 BEGHE2 

ga STX#88; LDXB0; STX#89 

SO: BEZ LDX#89: INX 

100 STA#B40 1; CPX82; BEQBB4 

110 STA#B4O2; CFXE 

120 STA#B40Z; CFXI84 ; BEGBB4 

121 STA#B4AO4; CFXB5; EEOBB4 

122 STARB405; CFXB6; BEGDB4 

123 STAHB406; CFXB7 ; BEDBBRA 

124 STA#E4O7 ; CFX(88; BEORB4 

120: BBS; STAHB4OO; CPXE1 ; HEQBB4 

140 LDX80; STX#89; JMPHABDS 

150: BR4; STXHB9; LDAHAOO Ss CMPGHEF ; BNEEE2 
160 JMF#AOOZ 


17GIN. Ii PEGED7SROELF. $Ò1E. 
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GOEDKOPE 16 k=RAM UITBREIDING, met het vierkante ZX=Sinclair blok. 

Nu het enthousiasme van de ZX-81 bezitter begint over te slaan naar 
teleurstellingen komen er in de tweedehands-handel steeds meer geheugen- 
uitbreidingsblokken van de ZX-81 beschikbaar. Ook ík kwam voordelig 

aan zo'n blok, Na enig gevogel lukte het mij om zo'n blok op de ACORN=ATOM 
aan te eluiten. Hiervoor zijn slechts twee IC-tjes nodig. Het schema 
spreekt voor zich. Voor de uitvoering hiervan ís "eilandjes print" met 
geëtste connector zeer geschikt, Let wel op de steekafsetand van de 
connector, Hier moet het geheugenblok op passen, Met een extra 

eonnector kan het geheugen aan de ATOM gekoppeld worden.(zie afbeelding). 
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SOFTWARE: extended autoshow 


We kennen nog wel onze oude vertrouwde AUTOSHOW.BAS. Dit 
programma liet alle plaatjes in vogelvlucht zien,die op een 
schijf staan met de extensie .PIC. 

Deze ‘'extended' versie doet niets anders, doch de plaatjes 
vloeien in elkaar over m.b.v. de overbekende FLOW routine 
en men kan de plaatjes dumpen op papier door de letter -D- 
in te drukken op het moment dat het plaatje op het 
beeldscherm staat. De dumproutine is SDUMP uit de RXBOX. 
Voor de rest is men GDOS 1.5 en P-Charme nodig. 


10 PROGRAM AUTOSHOW.EXT 
20 
30 PROC ASSEMBLE 
40 P.$21;FOR I=t TÔ 2 
50 P=#2800:; [ 
60:550 
79 LDX@O;JSR 552 
80 LDX@1;JSR 552 
90 LDX@2;JSR 552 
100 RTS 
110:SS2 STX Z;STX Z+2 
120 LDX@#80;STX Z+1 
130 LDX #80;STX Z+3 
140:553 LDY@O 
150 LDA(Z+2) ,Y;STA(Z) „Y 
160 INC Z;INC Z+2;BNE P+6 
170 INC Z+1;INC Z+3 
180 INC Z;INC Z+2;BNE P+6 
190 INC Z+1;INC Z+3 
200 INC Z;INC Z+2;BNE P+6 
210 INC Z+1;INC Z+3 
220 LDA Z+1:CMP@#98;BMI 553 
230 JSR#FB8A;RTS 
240} ;NEXT;P. 86 
250 
260 PEND 
270 
280 Z=#70 
290 DIM SS5 
300 FORI=OTO5;SSI=-1;N. 
310 ASSEMBLE 
320 *NOMON 
330 CLEAR4 
340 POR I=0 TO 1 
350 *OSCLI "DRIVE“,I,$13 
360 *DIR 
370 N=?#200F 
380 FOR J=N-1 TO 0 STEP —1 
390 2 (#201F+J*16) =13 
400 XIF INSTR(S(#2010+J*16),".PIC'") 
410 T=? (#2506+J*8) 
420 S=? (#25074+J*8) DT 
430 T=T*16;T=T+ (8/16) 
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440 Se5%16 

450 IF S=0;S=16;T=T-1 
460 6-0 

470 *OSCLI "RSECT ",&T," ",&8," "‚" 16 6800",$13 
480 PAUSE 60 

490 2#80=468;LINK#2800 
500 ELSE 

510 NEXT J 

520 PAUSE 60 

530 NEXT I 

540 

550 *MON 

560 PAUSE 90 

370 P.$12 

580 END 


SOFTWARE: Disc>disc 


Het programma disc>disc is een GDOS utility en afgeleid van 
de eerder gepubliceerde utilities ACORN->GDOS en 
SQUEEZE Het programma biedt de keuze tussen het in z'n 
geheel copieren van een schijf, of het copieren van enkele 
willekeurige files van de ene naar een andere schijf. In 
het laatste geval heeft U tevens de mogelijkheid om de te 
copieren files te renamen. 

Bij gebruik van 1 drive geeft het programma steeds aan 
welke schijf (source- of target-disc) in de drive gestopt 
moet worden; bij gebruik van twee drives verloopt het 
copieer-proces volledig automatisch. 

Het programma gebruikt als copieerbuffer het geheugengebied 
van #2900 tot #8000; dit is eventueel te veranderen door 
aanpassing van de variabelen A en K. Na het copieren 
eindigt het programma met het KEEP-en van de directory van 
de target-disc en toont deze tevens op het beeldscherm. 


Dick Protzman 
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PRINTERWARE: Dumpprogramma voor GP50 


Onderstaand programma is bedoeld om een grafische dump van 
een plaatje in CLEAR 4-mode te maken op een Seíikosha GP-50 
printer.Uit de listing blijkt dat het te dumpen plaatje op 
#5000 geladen moet worden; de object code van de 
dumproutine staat op #800. Daar de source in SALFAA 
geschreven is kan dit makketijk terug gevonden worden; 
zodat de code makkelijk naar een andere geheugenlocatie 
verplaatst kan worden. 

Verder gebruikt SALFAA het gebied #4000 tot #5000 als 
ruimte voor de SYMBOL table, 


10 \\ SCREEN DUMP \\ 

20 \\ VERSION 0,0 \\ 

30 

40 PASS 2;603.a 

50 PASS 1;G0S.a 

60 

70 P=P&#000OFFFF ; @=0 

80 P.$12'''"CODE VAN “"&start 
90 P.“ TOT "&P' 

100 P.$7$7;LINK #FFE3 

110 CLEAR4;COPY4#5000, #6800, #8000 
120\ INV 

130 LINK #0800 

140 P.$12''‘"END"';END 

150 

160aASM-BEGIN 

170 .OPTION #40 

180 .TABLE #4000,#4FFE 


190 

200 :zp =#B0 

210 :start'assembiy=#07FF 
220 :pr'drive =#FF10 
225 :pr'drv =#FEFB 
230 :new'line =10 
240 


250 .CODE start 'assembly 
260 .RAM start'assembly 






270 
280:NEP'start NOP 
29 tart JSR lbe'13;BEQ lbe'3 


310:1lbe'13 LDA@2;JSR pr'drv 
320 LDA@27;JSR pr'drive 
330 LDAG4B:;JSR pr'drive 
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340: lbe'O LDA@16;JSR pr'drive 
342 LDAGO;JSR pr'drive 

344 LDA@4;JSR pr'drive 

345 LDA@27;JSR pr'drive 

350 LDA@71;JSR pr'drive 

360 LDAGI;JSR pr'drive 

370 LDA8O;JSR pr'drive 

380 RTS 

390: 1lbe'3 LDA@#80;STA zp+1 

400: 1lbe'10 LDA6O;STA zp 

410 STA zp+2 

420:ibe'i1 LDY@O;STY zp+5 
430:1be'12 LDA@S;STA zp+3 

440: 1lbe'4 LDA zp+3;STA zp+4 

450 LDA(zp),Y;LDX zp+2 

460 AND Ibe'20,X:BEQ lbe'S 

470 LDA8#60 

480:1lbe'S5 DEC zp+4;BEQ lbe'9 

490 LSRA;JMP lbe'5 

500:1lbe'9 CLC;ADC zp+5;STA zp+5 
510 DEC zp+3;TYA;CLC;ADC@#20 
520 TAY;BNE lbe'4 

530 LDA zp+5;EORGHFF 

540 CMP@#80;BCC lbe'14 

550 PHA;LDA@S;EOR#B002; STA#BOO2 
560 PLA:;JSR pr'drive 

570 LDA@8;EOR#BOO2;STA#B002;JMP lbe'15 
580:1lbe'14 JSR pr'drive 
590:1be'15 INC zp+2;LDA zp+2 

600 CMPQ8;BNE lbe'11 

610 INC zp;LDA zp;CMP@#20;:BEQ lbe'6 
620 LDY@O;STY zp+2;STY zp+5;BEQ lbe'12 
630:lbe'6 LDA® new'line;JSR pr'drive 
640 INC zp+t1;LDA zp+1 

650 CMP@#98;BEQ ibe'7 

660 JSR lbe'O;JMP lbe'10 

670: 1lbe'7 LDA@27;JSR pr'drive 
680 LDA@SO;JSR pr'drive 

690 LDA@3:;JSR pr'drv 

700 RTS 

710:1lbe'20 

720.BYTE #80,#40,#20,#10,8,4,2,1 
730.END 

740 RETURN 
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SOFTWARE: Backup disc-to-tape 


De ACORN-DOS bezitters onder U kennen ongetwijfeld het programma 
BACKUP van Ronald Boers.De GDOS bezitters onder ons zullen dan 
ook geconstateerd hebben dat eerder genoemd programma in het 
geheel niet bruikbaar is voor GDOS. Welnu, daarin komt nu 
verandering met het hierna beschreven programma. 


Algemeen: 


Een nadere bestudering van de opbouw van een GDOS directory leert 
ons dat hierin maximaal plaats is voor 78 entries met een 
maximale filenaam lengte van 15 karakters. Dat beteken: dus dat 
over het algemeen de directory niet op 1 normaal Atom scherm past 
zoals dat bij BACKUP het geval was.Derhalve is de opzet van het 
nieuwe Backup programma dan cok totaal anders dan die van BACKUP. 


Opbouw: 


Het programma begint met het opvragen van een aantal gegevens 
omtrent uw DOS en COS; namelijk: 


— backup maken van welke drive [0/1/2/3) 
—= aantal tracks op de schijf (40/80) 
— gewenste Baudrate voor COS [300/1200] 


Vervolgens wordt de desbetreffende directory gelezen waarna 
gevraagd wordt of de gehele schijf naar tape moet of dat U een 
selectie wilt maken uit de directory. 

Bij het backuppen van de gehele schijf hoeft U nu alleen nog maar 
de cassetterecorder aan te zetten en op de spatiebalk te drukken 
waarna de gehele schijf file voor file naar tape gestuurd wordt 
met de gewenste Baudrate 


Bij het selectief backuppen van een schijf worden alle filenamen 
een voor een op het scherm getoond, waarbij U dan uit een aantal 
opties kunt kiezen. Deze zijn: 


— Yes : plaatst file in de backup-queue 
— ‘o : file komt niet in backup-queue 
— Info : geeft “INFO van de desbetreffende file 


— Rename : biedt mogelijkheid filenaam te wijzigen 


Wanneer een file in de backup-queue geplaatst moet worden waarvan 
de filenaam langer is dan 13 karakters dan worden de eerste 13 
karakters getoond en vervolgens wordt gevraagd of men hiermee 
accoord gaat (Accept) of niet (Reject). 

In het eerste geval wordt de file met de tot 13 karakters 
ingekorte filenaam in de backup-queue geplaatst: in het tweede 
geval kan men via de optie Rename zelf een andere filenaam 
invullen waarna de file alsnog ín de backup-queue geplaatst 
wordt 
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Nadat de gehele directory doorlopen is moet men de cassette 
recorder op opname zetten en. vervolgens op de spatiebalk drukken 
waarna de gewenste files naar tape gestuurd worden. 


Het beantwoorden van alle vragen, alsmede het kiezen uit de 
mogelijke opties, gebeurt door het intypen van het eerste 
karakter van de aangegeven mogelijkheden (staan tussen vierkante 
haken). 


Uitvoering: 





Tijdenshet backup proces zijn op het scherm de volgende zaken te 
zien: 


= Gekozen Baudrate 

= Filenaam op schijf 

Filenaam op cassette 

= Start-, Eind= en Executie adres plus de Lengte in blokken 


Na afloop van het backup proces wordt er enig geluid geproduceerd 
ten teken dat het programma klaar is. 


Implementati 





Voor een goede werking van het programma moeten de volgende zake 
in de Atom aanwezig zijnt 


- GDOS 1.5 

— PCHARME 

— JOSBOX 

= Goede schakelsoft 


Deze laatste twee zijn noodzakelijk voor de FCOS en SCOS 
routines. ventueel, voor niet JOSBOX bezitters, kan ar ook 
gebruik gemaakt worden van de CO8 routines wit PCHARME. Dan 
moeten de volgende regels in de procedure FILE-SAVEr 





IF Ce1;FCOS 
IF C=0; COS 


vervangen worden doort Cos C 


Daar het programma tijdens het backup proces de 
Read-character-routine verplaatst (dit om een Kkeyboard-scan na 
RECORD TAPE te onderdrukken) mag het programma niet gestopt 
worden met Sescape> tijdens het van schijf halen van een 
programma. 
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eugengebruik: 





Het programma gebruikt als buffergebied het geheugen van #2900 
tot #B000. Verder het geheugen van #8200 tot #A000, Hier staat 
het programma zelf, het gebied van TOP tot #A000 wordt gebruikt 
voor de verschillende arrays en de assembler routines, 

Verder nog het zero-page gebied van #70 — #7A. 


80-kolommen: 


Het zal een ieder duidelijk zijn dat op een 80-kolommen scherm 
een veel beter overzicht mogelijk is van de inhoud van een 
bepaalde directory. Van dit programma bestaat dan ookal een 

voorlopige 80-kolommen versie; deze werkt op het moment echter 
alleen op een Elektuur 80-kolommen kaart welke omgebouwd is voor 
High- en Low-video (waarover U elders in dit Broodje meer kunt 
lezen, als ales goed gaat tenminste). Wanneer het programma 
zodanig ‘verbouwd! is dat het ook op een normale 80-kolommen 
kaart draait, dan zal dit ook verspreid worden binnen de club. 
Dit programma kan dan echter wel meer dan de nu geplubiceerde 
versie; hetgeen betekent dat die niet meer op het normale scherm 


za6 draaien. De liefhebbers moeten dus nog maar even geduld 
hebben. 
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De in Acorntjesbrood 4.3 afgedrukte listing van Disc-disc 
copy was niet geheel in overeenstemming met de verspreide 
versie.De oorzaak hiervan was dat terwijl het Broodje al 
bij de drukker was er nog een foutje in het programma boven 
water kwam. Bij het copieren van een geheel volle schijf 
werden de laatste twee tracks niet mee gecopieerd. 

Voor alle duidelijkheid volgt daarom hier nogmaals een 
listing van het goede programma (datum 860827), 


Opmerking: 





Het programma gebruikt nu tijdens het copieren als 
bufferruimte het geheugengebied van #2000 tot #8000. 


10 PROGRAM DISC-DISC COPY 

20 

30 REM GDOS 1.5 

40 REM DOUBLE DENSITY ONLY! ! 

50 REM DATE: 860827 

60 

70 PROC WISH 

80 P=0;2=0;J=l;H=l 

90 PRINT$12"WHICH DRIVE CONTAINS THE SOURCE DISC [0/1/2/3] 2" 
100 SIDE; S=K-48;@=2;P.S' 
110 PRINT NUMBER OF TRACKS [40/80] ?" 
120 TRACKS; V=(K-48}*10;6=3;P.V'" 
130 PRINT"WHICH DRIVE CONTAINS THE TARGET DISC [0/1/2/3] 2" 
140 SIDE;O=K-48;@=2;P.0' 
150 PRINT" NUMBER OF TRACKS [40/8011 ?" 
160 TRACKS ;W=(K-48) *10;0=3;P.W'' . 
170 IF (S+0<2) OR (S5+0=2 AND S=1) OR (S+0=4 AND S=2) OR (S5+0>4) ;F=1 
180 PEND 


190 

200 PROC SIDE 

210 Do 

220 INKEY K 

230 UNTIL K<52 AND K>=48 
240 PEND 

250 

260 PROC TRACKS 

270 Do 

280 INKEY K 


290 UNTIL K=52 OR K=56 
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300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
390 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
IRO 


PEND 


PROC INIT 
IF F;PRINT"INSERT TARGET DISC & PRESS KEY'"';INKEY Q 
«OSCLI "DIR",0,$13 
IF F;PRINT"INSERT SOURCE DISC & PRESS KEY"'';INKEY Q 
*OSCLI “DIR",S,$13 
M=O;N=0; Tel ;U=l; L=#60; P=#60; R=#60 
C=(V*16)/L 
E=? (#2506) *256+?#2507 
G=E+?#2505+1 
Be (G/L) +1 
IF B>C;Be=C+1;D=e1 
IF G>640 AND W£V;Zel 
PEND 


WISH 
INIT 
IF Z OR (V<)W AND F);PRINT"UNABLE TO BACKUP !"'$7$7$7;END 


8=0 

PRINT"SECTORS TO COPY ; #"&G! 

PRINT" OUT OF : #"&(V*16)'' 

IF F;PRINT"YOU MUST “B" TIMES CHANGE THE DISCS""*' 


FOR I=l TO B 
“OSCLI "DRIVE",S,$13 
*OSCLI “#“‚V,$13 - 
XIF F;P.$11"INSERT SOURCE DISC & PRESS KEY"';INKEY Q 
ELSE XIF MX >0;?#BPCI=M; ?#BFC2=T 
ELSE 
“OSCLI “RSECT",&M,$32,&T,$32,&P,$32,5#2000, 513 
IF J;MeM+6;*OSCLI "RSECT",&M,$32,&T,$32,841,$32,84#BE00, $13 
IF (M=36 AND D=1 AND V=40) ;P=#40; Je0 
IF (M=78 AND D=1 AND V=80} ;P=#20; J=0 
OSCLI "DRIVE",O,$13 
*OSCLI "#"‚W,$13 
XIF F;P.$11"INSERT TARGET DISC & PRESS KEY"';INKEY Q 
ELSE XIF N<>0;?#BFCL=N; ?4#BFC2=U 
ELSE : 
XOSCLI "WSECT",&N,$32,&U,$32.&R,$32,8#2000,$13 
IF H;N=N+6;*OSCLI "RSECT",&N,$32,5U,$32,6#1,532,6#8E00, $13 
IF (N=36 AND D=1 AND W=40) ;R=#40; H=0 
IF (N=78 AND D=1 AND W=80) ;R=#20;H=0 
NEXT 


PRINT"BACKUP PROCESS COMPLETED"'' 
*OSCLI "CAT",0,$13 
END 
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PICTUREWARE: Video Digitizer Deel 2 


In het Broodje nr4 heb je kunnen lezen hoe je met beperkte 
middeten een video-digitizer kunt bouwen van zeer 
acceptabele kwaliteit. De echte kwaliteit moest nog blijken 
omdat we maar met 1 grijsnivo (= intensiteit) werkten. In 
de graphics-wereld heet dit 'treshhold sampling’, d.w.z. 
men stelt een nivo in (bij ons was dit O0 t/m 7) en het 
videobeeld werd opgebouwd volgens: 

IF I(x‚y) > T 

THEN 


pixel (zwart) 
ELSE 

pixel (wit) 
END-IF 


waarbij hier I(x,y) de te plotten pixelwaarde en T de 
treshhold waarde is. 
We waren allang blij dat we dit soort plaatjes konden maken 
en de resultaten waren niet slecht. Maar omdat de digitizer 
de mogelijkheid heeft om een videosignaal te verdelen in 8 
intensiteiten, schreeuwde dit om de benodigde software (dus 
geen extra hardwae !I!I!). 
Het nadeel van de digitizer is, dat het maar een bit per 
sampling kan doorgeven. Om de benodigde 8 intensiteiten en 
dus 3 bits te verkrijgen, dienen we het video beeld 3 maal 
te samplen. In praktijk komt dit neer op ongeveer 0.8 
seconde. Erg snel bewegende beelden gaan voor de volgende 
toepassingen dan ook niet op. 
Over hoe en wat de software allemaal uithaalt om de 3 bits 
een videosignaal te samplen en op te slaan in het 
geheugen volgt geen uitleg, want alle benodigde scan-, 
display en printroutines worden in een speciale 
digitizer-ROM gestopt die hopelijk volgend broodje 
gereleased kan worden. 


Nu we de 3-bits videoinformatie in de computer hebben 
willen we het resultaat op het beeldscherm zien. We moeten 
dus zoeken naar een dsiplay methode díe het plaatje 
gedetaileerder dan voorheen op het beeldscherm kan 
vertonen, m.a.w. we mogen geen resolutie verlies hebben. 
Hiervoor zijn verschillende methodes ontworpen, welke zeer 
fraaie resultaten geven. De bekendste methode is die van 
Floyd en Steinberg. Deze heren hadden het volgende bedacht: 
Begin boven in de linker-boven-hoek en distribueer fouten 
naar omliggende pixels. Dit wordt gedaan om de fouten welke 
veroorzaakt worden door treshhold sampling evenredig te 
verdelen. Het distribueren gaat van links-boven naar 
rechts-onder. Het Floyd-Steinbrg algorithme distribueerd 
3/B*error naar rechts, 3/8*error naar beneden en 1/4*error 
diagonaal. Deze methode geeft een gedetaileerd beeld van 
videoinformatie in meer dan 1-bít. 

Om software technische redenen is niet gebruik gemaakt van 
deze methode, maar van een algorithme welke hetzelfde 
prachtige resultaat, zonder resolutie verlies, op het beeld 
weergeeft. Dit is het zgn. Ordered dither. 

Deze methode ‘probeert’ een error te genereren in het 
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plaatje. De waarde van de fout wordt opgeteld bij de waarde 
van de desbetreffende pixel voordat het vergeleken wordt 
met de geselecteerde treshhoidwaarde. Het optellen van een 
willekeurige fout geeft niet het gewenste resultaat, 
alhoewel een patroon van fouten welke het beste resultaat 
geeft bestaat. Het fout-patroon wordt opgeteld bij het 
beeld in een schaakbord-patroon. Deze techniek wordt 
genoemd: Ordered Dither (het geordend chaos scheppen ?!). 
De kleinste order-matrix ís 22, maar omdat we 8 
intensiteiten hebben is een matrix gewenst van 4*4, 


0 8 2 10 
12 4 14 6 
3 11 1 9 
15 7 13 5 


Het ordered-dither algorithme: 


Xmin, Xmax, Ymin, Ymax zijn de raster limieten voor elke 
scan va boven naar beneden (resp. 0, 256, 0, 192) 

MOD is de modulo functie (bij de ATOM —> %) 

n is matrix breedte 


FOR y = Ymax TO Ymin STEP —1 
FOR x = Xmin TO Xmax 


bereken entry in dither matrix 
i = (x MOD n) +1 
j = (y MOD n) +1 
bepaal pixel display waarde 
IF I(x‚y) < D(i,i) THEN 
Pixel (x,y) = wit 
ELSE 
Pixel (x,y) = zwart 
END-IF 


display pixel 


NEXT x 
NEXT y 


END 


Mensen die opletten zullen direct zien dat het plaatje wel 
erg onevenredig wit moet worden omdat we maar 8 nivo's 
hebben (0 t/m 7) en 16 entries in de matrix. Om met een 
beperkt aantal nivo's toch de juiste entry in de matrix te 
krijgen, is gebruik gemaakt van een methode van de heer 
C.A.Calkins. 

SCALE = (MAX-MIN) /N 

INDEX = (VALUE-MIN) /SCALE 

if INDEX > N-1 then INDEX = N-1 
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Hierbij is MAX de maximale waarde (7) 
MIN de minimale waarde (0) 
N de aantal waarden in de array (16) 
VALUE intensiteits waarde 
SCALE de schalingsfactor en 
INDEX de entry in de matrix 


Dan worden dit: 

intensiteit: 0 1 2 3 4 5 6 7 

matrix-entry: 0 2 4 6 9 11 13 15 

Veelzeggend is altijd een voorbeeld. Het menselijk gezicht 
leent zich daar het best voor omdat het gezicht van ieder 
mens gelijk is op (voor ons goed zichtbare) details na. Ik 
ben dan ook begonnen met het scannen van Melina uit de 
James Bond-film 'For Your Eyes Only'. Het resultaat en het 
verschil tussen het samplen met 1 intensiteit of 8 
intensiteiten is duidelijk zichtbaar. 

Ideaal zou zijn het samplen met behulp van een video 
camera. Mensen houden het echt wel vol om 0.8 seconde stil 
te zitten en de resultaten zijn echt niet normaal meer. 
Melina: 





voor dither (treshhold, 1 nivo) na dither (8 


Hierbij moet nog vermeldt worden dat de waarde O echt 
altijd als wit wordt afgedrukt omdat änders een soort 
schaakbord-wit ontstaat wat ook gebruikt wordt in de 
kranten (wit is daar niet wit!!). Zie algoritme (IF 00 is 
niet waar —--) pixel zwart). We krijgen dus om de vier 
pixels een pixel die zwart wordt. Dit zal in de 
digitizer-ROM wel ingebouwd worden als de zgn. paper-mode 
met daarnaast nog verschillende mogelijkheden om 
inteniteiten softwarematig te veranderen en zon. 
“uploadings" van de dithermatrix. Hierbij wordt de matrix 
door elkaar gehusselt zodat men andere grijseffecten 
verkrijgt. Dat men niet altijd het algoritme kan loslaten 
op ieder videobeeld mag duidelijk zijn als men kijkt naar 
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het logo van een bekend biermerk. Het opkrikken van de 
detailering zou hier alleen maar storend werken. 








Conclusie; bespaar iet op de digitizer voor wat betreft het 
aantal intensiteiten, De plaatjes die we hiermee kunnen 
vertonen en het nog te beschrijven printen ín zgn. 
halftoning zijn deze investering dubbel en dwars waard. 


PICTUREWARE: Video Digitizer Deel ad-1 


In deel 1 werd een beginnerspakket woor de digitizer 
beschreven. Hier bleek dat als men de contrast te ver open 
draaide, de software (en eigenlijk dus ook de hardware) de 
syncsignalen wel eens kon missen. Hierdoor ontstaan 
plaatjes waarvan elke kolom van 16 pixels iets hoger of 
lager ligt dan de voorgaande kolom. Erg storend. Hiervoor 
heb ik de volgende oplossing: schrap de 40-lijnen wachtlus 
en vervang deze door een tijd-loop. 
Praktijk: verwijder regel 790 en 810 t/m 840 
Voeg toe: 790 LDX 8480 

810 PHA:PLA;PHA;PLA 

865 LDA PORTB 


Gerrit Hillebrand 
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PICTUREWARE: Video Digitizer Deel 3 


Halftoning is een techniek die met resolutieverlies een 
zeer gedetailleerde tekening kan weergeven op papier. Bij 
het beeldscherm moesten we erop letten dat de resolutie van 
het beeldscherm gelijk bleef, doch als we een videobeeld 
willen dumpen op papier, dan is resolutie verlies (dus een 
grotere resolutie op papier) juist zeer wenselijk. 
Halftoning is een techniek die m.b.v. een zeer gering 
aantal intensiteit nivo's (in ons geval 8, zie Video 
Digitizer deel 2) een grotere visuele resolutie (en dus 
detail) kan weergeven. De halftoning techniek is al zeer 
oud en werd voor het eerst toegepast in het weven van 
zijde. Moderne halftoning technieken werden ontwikkeld door 
Stephen Hargon in 1880. Met behulp van deze techniek kan 
men een grote varieteit aan fotographische grijs nivo's 
bereiken, gebruik makend van een Z2-nivo diplay medium: 
zwarte inkt op wit papier. Het is dan ook niet 
verwonderlijk dat dit ontwikkeld werd t.b.v. de drukkunst 
en deze technieken worden nog steeds toegepast in de 
drukwereld, zij het nu met veel grotere resoluties (meer 
dots per inch) 

De techniek die hier toegepast wordt is ook bekend onder de 
naam ‘patterning'. Men koppeld aan elke intensiteit een 
patroon van 2*2, 2*3 of 3*3 dots. In ons geval hebben we 8 
nivo's, dus in aanmerking komend voor gebruik zijn 2*3 en 
33, 

De patronen die gebruikt worden in de drukwerk industrie 
Zijn: 


En 5 


Eem m 
ERK 
EE Ke 


In het geval van 2*3 patronen zou men dus intensiteiten 
verwachten van O t/m 6. Maar we hebben O t/m 7. Volgens de 
regel van C.A. Calkins (Video Digitizer deel 2) krijgen we 
nu de volgende patronen gekoppeld aan de grijs-nivo's: 
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intensiteit: O0 1 2 3 
0 2 3 


4 5 6 7 
patroon: 1 4 5 6 6 


In het geval van 3*3 patronen hebben we meer patronen als 


intensiteiten: 10 patronen en 8 intensiteiten. Geen 
probleem, de regel van Calkins biedt ons uitkomst: 


intensiteit: O0 1 2 3 4 5 6 7 
patroon: 0 1 245 7 8 9 


Indien we nu elke intensiteit netjes omzetten in zo'n 
patroon, dan krijgen we de mooiste tekeningen op papier. Op 
dit moment kan ik dumps maken met 3*2-patronen in de 
printermode:640 dots/line (semi-plotter mode, welke erin 
geplaatst is door Ronald Boers: mijn dank hiervoor) en 
3*2-patronen in de printermode:576 dots/line (plotter mode) 
en 3*3 patronen in de printer mode:960 dots/line. Allen 
EPSON-compat ibe le escape-protocollen, maar dat is 
vanzelfsprekend. 


Als voorbeeld zien we hiernaast het voorbeeld van Melina 
(deel 2) ín de 3*2/semi-plotter mode en daarna Melina in de 
3*3 mode. 

Let wel: de intensiteiten op papier bedragen nu: 768*855 
voor 2*3 semi-plottermode en 768*768 voor 3*3 patronen. 


Al deze mogelijkheden zijn vanzelfsprekend in de 
digitizer-ROM gebouwd, waarvan we in het volgende broodje 
de beschrijving mogen verwachten. U ziet, de 
super-eenvoudige digitizer is nu wel op z'n best gebruikt 
en maakt alle andere graphicdumps maar zeer povertjes. 


Literatuur: 
Procedural Elements for Computer Graphics — Rogers 


Gerrit Hillebrand 
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AECOM (Atom-Electron COMmunicatie) 


Een aantal leden van de club is in bezit van twee verschillende 
computers van het merk ACORN. Meestal zijn dit een Atom en een 
Electron maar ook wel een Atom en een BBC. 
Vaak wil men files van het ene systeem oversturen naar het andere 
b.v. om gebruik te maken van een diskdrive of een printer die op 
het andere systeem aangesloten is.(in ons geval de Atom). 
Dit is door de verschillende cassetteformaten echter niet 
zondermeer mogelijk. Het programma AECOM maakt een uitbreiding op 
het bestaande COS, waardoor files van het Electron/BBC formaat 
ingelezen of verzonden kunnen worden. Om het programma te kunnen 
gebruiken moeten Atom en Electron door een zgn. kruiskabel met 
elkaar verbonden worden.Dat wil zeggen de cassette ingang van de 
Atom ligt aan de uitgang van de Electron en omgekeerd. Na het 
runnen van het programma op de Atom zijn op de Atom twee nieuwe 
commando's beschikbaar n.l. *ELOAD en *ESAVE. 
“ELOAD moet gevolgd worden door een adres. Na RETURN zal de Atom 
de file die door de Electron verstuurd wordt vanaf dat adres in 
zijn geheugen opslaan. *ESAVE moet als volgt gebruikt worden; 
“ESAVE "FILENAME" SSSS LLLL EEEE. FILENAME is de naam van de file 
die verstuurd moet worden. SSSS is het startadres in het geheugen 
van de Atom. LLLL ís het eindadres PLUS EEN !!! in de Atom. EEEE 
is het executieadres en mag eventueel weggelaten worden. Met deze 
routines zijn heel leuke dingen te doen. B.v.het uitprinten op de 
Atom van een programma in BBC-basic. 
Tik in de Electron in direct mode in; 

*KEY1*SPOOL"print" IMIMLISTIM*SPOOLIM 
en in de Atom; 

10 REM PRINT 

20 DO 

30 *ELOAD 3000 

40 P=#3000 

50 DO;P=P+1;UNTIL ?P=13;P=P+1 

60 DO 

70 PRINT $2 

80 PRINT SP$13;P=P+LEN(P) +1 

90 UNTIL !P=#50532A3E 

100 PRINT $3 

110 UNTIL O0 


Een file in de Electron kan nu op de printer van de Atom worden 
afgedrukt door in de Electron op F1 te drukken (nadat bovenstaand 
programma op de Atom is gerund).Op dezelfde manier kunnen files 
van de drive naar de Electron gestuurd worden. 

Marien van Westen 
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#BXXX 


Het zal u bekend zijn dat de standaardisatie van van alles en nog 
wat een wereldprobleem is. Wij lopen met onze Atom dan ook niet 
geheel achteraan, want om te beginnen heeft ACORN voor de Atom 
wat grenzen afgebakend en daarna is er toch zoiets aìs een 
“standaard Atom" in de club gedefinieerd. Het zal u natuurlijk 
niet verbazen dat zulks vooral bepaald ís door de geschiedenis. 
Dat groeiproces is echter nog geen garantie voor een optimaal 
resultaat. Ikzelf vind het I/O gebeuren enigzins ongelukkig.Om te 
beginnen is daar meneer ACORN die het #Bxxx-gebied voor 1/0 
bestemde, maar wel meteen zondigde door zijn FDC (ftoppy disc 
controller) op #A00/#AO01 te adresseren. Misschien dat hij vond 
dat er met IK voor de VIA en 1K voor de PIO wat weinig ruimre 
overbleef in het B-blok. Welnu,op deze manier vinden wij dat 
allemaal wel ‚denk ik. Er kwam toen iemand met het geniale idee 
om de FDC op het E-blok te adresseren. Dat idee werd snel door de 
club afgekraakt met het enige argument dat zw daarvoor konden 
verzinnen : er bestaat programmatuur die geen vrije bytes toelaat 
op het E-blok! Je zou misschien verwachten dat er dan een of 
andere normstelling zou ontstaan om de ruimte in het B-blok te 
verdelen, maar nee hoor, er kwam een 80-kolomskaart die 
geadresseerd was op #BE2x. Hoe verzinnen ze het? 

Ik zal in het kort mijn idee uiteen proberen te zetten. 

Een kleine voorziening geeft de VIA de 16 adressen die hij nodig 
heeft, zodat de rest van #B800 — #BBFF vrij blijft (voor prive 
1/0). Diezelfde voorziening kent ook 16 adressen toe aan de 8255, 
Dat zijn er wel 12 teveel, maar de rest van #B000 — B3FF blijft 
weer vrij (voor club 1/0). Zo kan #B400 — #B7FF vooralsnog in 
reserve gehouden worden, dat is leuk voor de eenvoudige 
knutselaar. Aangezien #BFFF ats schakelbyte in wezen als RAM 
gebruikt wordt en er genoeg overtollige 2114's zijn die er 
gemakkelijk bijgeplaats kunnen worden, zou #BCO0O — #BFFF Ram 
moeten worden voor onregelmatige opslag zoals voor de Floating 
Point. P-CHARME, PFC enz. Dat idee is al eens gepubliceerd. De 
eenvoudige knutselaars wachten nu dus met smart op de aanwij- 
zigingen van de club om de adressering van hun 80-kolomskaart 
zonder beschadigingen om te kunnen bouwen. Hoe de Atom aangepast 
moet worden zal ik hierna proberen uit te leggen. Voor een 
investering van pakweg EEN HELE GULDEN ontstaat er een zee van 
ruimte voor u op #BOxx en #B8xx. Voor dir bedrag schaft u zich 
een HCF4078 aan en wanneer u dat niet in voorraad heeft, twee 
weerstanden van 1K5 en twee dioden. De 4078 is een OR/NOR poort. 
De adreslijnen A4 — A9 staan op de ingangen. Met de OR-uitgang 
worden de 6522 en de 8255 uitgeschakeld. Fig.1l toont de omgeving 
van IC49 aan de onderzijde van de print (toetsenbordzijde). Met 
een scherp mesje kerft u dan een onderbreking in de koperbanenop 
de twee plaatsen die door een pijl zijn aangegeven. (De oude 
situatie kan eenvoudig hersteld worden door een druppel tin over 
de kerf aan te brengen.) De gemaakte onderbreking overbrugt u dan 
met een weerstand, zoals in fig.2 is aangegeven. De adressering 
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zal dan gewoon blijven werken. Wanneer echter de chip-selectlijn 
kunstmatig hoog wordt gehouden, (dat mag vanwege die 
weerstand) „dan denkt de VIA/PIO dat hij niet wordt aangeroepen. 
Deze truc wordt verzorgt door de 4078.Dit IC wordt ondersteboven 
gesoldeerd aan een aantal pootjes van IC-voet 10. In fig.3 ziet u 
de bovenzijde van de 4078.De dik getekende pootjes zijn 
omgebogen,zodat ze naar boven wijzen.Aan die pootjes moet hij 
worden vastgesoldeerd. In fig.4 ligt hij daartoe op zijn rug. Ik 
heb hem iets te klein getekend, zodat duidelijker te zien is wat 
waaraan gesoldeerd is. Vergeet het draadje aan de min-poot niet 
en plaats de twee diodes. Een hexdump vanaf #B000 moet tonen of 
het werkt.Het lijkt mij dat dit voor de echte minima (zij die nog 
nooit iets met hun Atom gedaan hebben), geen onoverkomelijke 
investering hoeft te zijn. Er zijn natuurlijk ook namaak minima 
(zij die ooit wel eens geprobeert hebben om een of ander IC in 
een of andere voet te steken). Ook voor hen hoeft dit geen 
wezenlijk probleem op te leveren. Het wordt dan misschien weer 
eens tijd voor de club om opnieuw een MODALE Atom te definieren. 
Het lijkt de grote-mensenwereld wel! 


gore 





zesevee 
PEEEEETE 


IC 10 
FIG.3 


€ 





Wim Osterhoìt 
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Wilt u lid worden van de ATOM COMPUTER CLUB? 

Neem dan contact op met de penningmeester van de regio waar u bij 
ingedeeld wilt worden.Deze kan u inlichten omtrent het lidmaat- 
schap. 


Regio NOORD; 
D.Uuldriks Wiemers 14 9642 KG Veendam 
05987-19611 


Regio OVERIJSSEL/GELDERLAND 
N.van Wijnen Korte Dreef 12 8302 BS Emmeloord 
05270-13583 


Regio TWENTE: 


W‚Buning Kieskamp 1 7783 EB Gramsbergen 
05246-1831 

Regio NOORD-HOLLAND ; 

P.van Kuik Zuideinde 54-a 1843 JP Groot-Schermer 
02997-1902 


Regio DEN HAAG; 
Th.Waayerl.Couperusstraat 6 2274 XP Voorburg 070-862504 


Regio DELFT; 
F.von Morgen M de Ruyterweg 21 2628 BA Delft 


Regio ROTTERDAM; 
R.de HaanBrasem 125 2986 HA Ridderkerk 01804-25160 


Regio CENTRUM: 
P.van Mourik Ruiterstede 60 3431 XN Nieuwegein 
03402-48781 


Regio ARNHEM; 
J.Hartog Keyenbergseweg 60 6871 WK Renkum 08373-13757 


Regio ZEELAND; 
E.GijsselDorpsstraat 86 4424 CZ Wemelding 01192-2121 


Regio BRABANT-OOST; ’ 
P.Ehrlig Roostenlaan 266 5644 BS Eindhoven 040-114183 


Regio LIMBURG; 
À.van Zantvoort Mozartstraat 328 6044 RS Roermond 
04750-21797 


Regio BELGIE; 
R.Leyssens Oude Baan 127 3550 Heusden Belgie 


Bij het aangaan van het lidmaatschap kunt u de contributie over— 
maken op de rekening van de federatie.Vermeld hierbij uw volledige 
naam, adres en de regio waar u bij ingedeeld wilt worden. 


